/ Mac Power 1997 January / macpower199701.bin / AMUG / Publishing_19 / Alpha 6.5.sit / Tcl / Menus / eudoraMenu.tcl

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0e 65 75 64 6f 72 61 | 4d 65 6e 75 2e 74 63 6c |..eudora|Menu.tcl|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 41 4c 46 | 41 00 00 00 00 00 00 00 |.TEXTALF|A.......|
|00000050| 00 00 00 00 00 5b 75 00 | 00 01 7e ae 38 ff e8 ae |.....[u.|..~.8...|
|00000060| 38 ff e8 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |8.......|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 d6 22 00 00 |........|....."..|
|00000080| 23 20 20 20 20 20 3c 6e | 6f 77 72 61 70 3e 0d 23 |#     <n|owrap>.#|
|00000090| 20 42 75 69 6c 74 20 66 | 6f 72 20 45 75 64 6f 72 | Built f|or Eudor|
|000000a0| 61 0d 0d 23 20 43 6c 61 | 73 73 20 6d 65 73 73 61 |a..# Cla|ss messa|
|000000b0| 67 65 3a 20 41 20 6d 65 | 73 73 61 67 65 0d 23 20 |ge: A me|ssage.# |
|000000c0| 45 6c 65 6d 65 6e 74 73 | 3a 0d 23 20 09 66 69 65 |Elements|:.# .fie|
|000000d0| 6c 64 20 62 79 20 6e 61 | 6d 65 0d 23 20 50 72 6f |ld by na|me.# Pro|
|000000e0| 70 65 72 74 69 65 73 3a | 0d 23 20 09 62 6f 64 79 |perties:|.# .body|
|000000f0| 20 20 73 74 72 69 6e 67 | 20 20 2d 2d 20 74 68 65 |  string|  -- the|
|00000100| 20 62 6f 64 79 20 6f 66 | 20 74 68 65 20 6d 65 73 | body of| the mes|
|00000110| 73 61 67 65 0d 23 20 09 | 70 72 69 6f 72 69 74 79 |sage.# .|priority|
|00000120| 20 20 69 6e 74 65 67 65 | 72 20 20 2d 2d 20 74 68 |  intege|r  -- th|
|00000130| 65 20 70 72 69 6f 72 69 | 74 79 0d 23 20 09 6c 61 |e priori|ty.# .la|
|00000140| 62 65 6c 20 20 69 6e 74 | 65 67 65 72 20 20 2d 2d |bel  int|eger  --|
|00000150| 20 74 68 65 20 69 6e 64 | 65 78 20 6f 66 20 74 68 | the ind|ex of th|
|00000160| 65 20 6c 61 62 65 6c 0d | 23 20 09 73 74 61 74 75 |e label.|# .statu|
|00000170| 73 20 20 75 6e 72 65 61 | 64 2f 61 6c 72 65 61 64 |s  unrea|d/alread|
|00000180| 79 20 72 65 61 64 2f 72 | 65 70 6c 69 65 64 2f 66 |y read/r|eplied/f|
|00000190| 6f 72 77 61 72 64 65 64 | 2f 72 65 64 69 72 65 63 |orwarded|/redirec|
|000001a0| 74 65 64 2f 6e 6f 74 20 | 73 65 6e 64 61 62 6c 65 |ted/not |sendable|
|000001b0| 2f 73 65 6e 64 61 62 6c | 65 2f 71 75 65 75 65 64 |/sendabl|e/queued|
|000001c0| 2f 73 65 6e 74 2f 6e 65 | 76 65 72 20 73 65 6e 74 |/sent/ne|ver sent|
|000001d0| 20 20 2d 2d 20 74 68 65 | 20 6d 65 73 73 61 67 65 |  -- the| message|
|000001e0| 20 73 74 61 74 75 73 0d | 23 20 09 73 65 6e 64 65 | status.|# .sende|
|000001f0| 72 20 20 73 74 72 69 6e | 67 20 20 2d 2d 20 74 68 |r  strin|g  -- th|
|00000200| 65 20 73 65 6e 64 65 72 | 20 61 73 20 61 70 70 65 |e sender| as appe|
|00000210| 61 72 69 6e 67 20 69 6e | 20 74 68 65 20 6d 65 73 |aring in| the mes|
|00000220| 73 61 67 65 20 73 75 6d | 6d 61 72 79 0d 23 20 09 |sage sum|mary.# .|
|00000230| 64 61 74 65 20 20 73 74 | 72 69 6e 67 20 20 5b 72 |date  st|ring  [r|
|00000240| 2f 6f 5d 20 20 2d 2d 20 | 74 68 65 20 64 61 74 65 |/o]  -- |the date|
|00000250| 20 61 73 20 61 70 70 65 | 61 72 69 6e 67 20 69 6e | as appe|aring in|
|00000260| 20 74 68 65 20 6d 65 73 | 73 61 67 65 20 73 75 6d | the mes|sage sum|
|00000270| 6d 61 72 79 0d 23 20 09 | 73 75 62 6a 65 63 74 20 |mary.# .|subject |
|00000280| 20 73 74 72 69 6e 67 20 | 20 2d 2d 20 74 68 65 20 | string | -- the |
|00000290| 73 75 62 6a 65 63 74 20 | 61 73 20 61 70 70 65 61 |subject |as appea|
|000002a0| 72 69 6e 67 20 69 6e 20 | 74 68 65 20 6d 65 73 73 |ring in |the mess|
|000002b0| 61 67 65 20 73 75 6d 6d | 61 72 79 0d 23 20 09 73 |age summ|ary.# .s|
|000002c0| 69 7a 65 20 20 69 6e 74 | 65 67 65 72 20 20 5b 72 |ize  int|eger  [r|
|000002d0| 2f 6f 5d 20 20 2d 2d 20 | 74 68 65 20 73 69 7a 65 |/o]  -- |the size|
|000002e0| 20 6f 66 20 74 68 65 20 | 6d 65 73 73 61 67 65 0d | of the |message.|
|000002f0| 23 20 09 6f 75 74 67 6f | 69 6e 67 20 20 62 6f 6f |# .outgo|ing  boo|
|00000300| 6c 65 61 6e 20 20 5b 72 | 2f 6f 5d 20 20 2d 2d 20 |lean  [r|/o]  -- |
|00000310| 69 73 20 74 68 65 20 6d | 65 73 73 61 67 65 20 69 |is the m|essage i|
|00000320| 73 20 6f 75 74 67 6f 69 | 6e 67 3f 0d 23 20 09 73 |s outgoi|ng?.# .s|
|00000330| 69 67 6e 61 74 75 72 65 | 20 20 6e 6f 6e 65 2f 73 |ignature|  none/s|
|00000340| 74 61 6e 64 61 72 64 2f | 61 6c 74 65 72 6e 61 74 |tandard/|alternat|
|00000350| 65 20 20 2d 2d 20 77 68 | 69 63 68 20 73 69 67 6e |e  -- wh|ich sign|
|00000360| 61 74 75 72 65 20 74 68 | 65 20 6d 65 73 73 61 67 |ature th|e messag|
|00000370| 65 20 73 68 6f 75 6c 64 | 20 68 61 76 65 0d 23 20 |e should| have.# |
|00000380| 09 51 50 20 20 62 6f 6f | 6c 65 61 6e 20 20 2d 2d |.QP  boo|lean  --|
|00000390| 20 69 73 20 45 75 64 6f | 72 61 20 61 6c 6c 6f 77 | is Eudo|ra allow|
|000003a0| 65 64 20 74 6f 20 65 6e | 63 6f 64 65 20 74 65 78 |ed to en|code tex|
|000003b0| 74 3f 0d 23 20 09 72 65 | 74 75 72 6e 20 72 65 63 |t?.# .re|turn rec|
|000003c0| 65 69 70 74 20 20 62 6f | 6f 6c 65 61 6e 20 20 2d |eipt  bo|olean  -|
|000003d0| 2d 20 69 73 20 61 20 72 | 65 74 75 72 6e 20 72 65 |- is a r|eturn re|
|000003e0| 63 65 69 70 74 20 69 73 | 20 72 65 71 75 65 73 74 |ceipt is| request|
|000003f0| 65 64 3f 0d 23 20 09 77 | 72 61 70 20 20 62 6f 6f |ed?.# .w|rap  boo|
|00000400| 6c 65 61 6e 20 20 2d 2d | 20 73 68 6f 75 6c 64 20 |lean  --| should |
|00000410| 74 68 65 20 74 65 78 74 | 20 62 65 20 77 72 61 70 |the text| be wrap|
|00000420| 70 65 64 20 77 68 65 6e | 20 73 65 6e 74 3f 0d 23 |ped when| sent?.#|
|00000430| 20 09 74 61 62 20 65 78 | 70 61 6e 73 69 6f 6e 20 | .tab ex|pansion |
|00000440| 20 62 6f 6f 6c 65 61 6e | 20 20 2d 2d 20 73 68 6f | boolean|  -- sho|
|00000450| 75 6c 64 20 74 61 62 73 | 20 67 65 74 20 65 78 70 |uld tabs| get exp|
|00000460| 61 6e 64 65 64 20 74 6f | 20 73 70 61 63 65 73 3f |anded to| spaces?|
|00000470| 0d 23 20 09 6b 65 65 70 | 20 63 6f 70 79 20 20 62 |.# .keep| copy  b|
|00000480| 6f 6f 6c 65 61 6e 20 20 | 2d 2d 20 73 68 6f 75 6c |oolean  |-- shoul|
|00000490| 64 20 61 20 63 6f 70 79 | 20 73 68 6f 75 6c 64 20 |d a copy| should |
|000004a0| 62 65 20 6b 65 70 74 20 | 61 66 74 65 72 20 6d 65 |be kept |after me|
|000004b0| 73 73 61 67 65 20 69 73 | 20 73 65 6e 74 3f 0d 23 |ssage is| sent?.#|
|000004c0| 20 09 70 72 65 73 65 72 | 76 65 20 6d 61 63 69 6e | .preser|ve macin|
|000004d0| 74 6f 73 68 20 69 6e 66 | 6f 20 20 62 6f 6f 6c 65 |tosh inf|o  boole|
|000004e0| 61 6e 20 20 2d 2d 20 73 | 68 6f 75 6c 64 20 4d 61 |an  -- s|hould Ma|
|000004f0| 63 69 6e 74 6f 73 68 20 | 69 6e 66 6f 72 6d 61 74 |cintosh |informat|
|00000500| 69 6f 6e 20 61 6c 77 61 | 79 73 20 62 65 20 73 65 |ion alwa|ys be se|
|00000510| 6e 74 20 77 69 74 68 20 | 61 74 74 61 63 68 6d 65 |nt with |attachme|
|00000520| 6e 74 73 3f 0d 23 20 09 | 61 74 74 61 63 68 6d 65 |nts?.# .|attachme|
|00000530| 6e 74 20 65 6e 63 6f 64 | 69 6e 67 20 20 41 70 70 |nt encod|ing  App|
|00000540| 6c 65 44 6f 75 62 6c 65 | 2f 41 70 70 6c 65 53 69 |leDouble|/AppleSi|
|00000550| 6e 67 6c 65 2f 42 69 6e | 48 65 78 2f 75 75 65 6e |ngle/Bin|Hex/uuen|
|00000560| 63 6f 64 65 20 20 2d 2d | 20 74 68 65 20 74 79 70 |code  --| the typ|
|00000570| 65 20 6f 66 20 65 6e 63 | 6f 64 69 6e 67 20 74 6f |e of enc|oding to|
|00000580| 20 75 73 65 20 66 6f 72 | 20 61 74 74 61 63 68 6d | use for| attachm|
|00000590| 65 6e 74 73 0d 23 20 09 | 73 68 6f 77 20 61 6c 6c |ents.# .|show all|
|000005a0| 20 68 65 61 64 65 72 73 | 20 20 62 6f 6f 6c 65 61 | headers|  boolea|
|000005b0| 6e 20 20 2d 2d 20 73 68 | 6f 75 6c 64 20 61 6c 6c |n  -- sh|ould all|
|000005c0| 20 68 65 61 64 65 72 73 | 20 62 65 20 76 69 73 69 | headers| be visi|
|000005d0| 62 6c 65 3f 0d 23 20 09 | 74 72 61 6e 73 6c 69 74 |ble?.# .|translit|
|000005e0| 65 72 61 74 69 6f 6e 20 | 74 61 62 6c 65 20 20 69 |eration |table  i|
|000005f0| 6e 74 65 67 65 72 20 20 | 2d 2d 20 74 68 65 20 72 |nteger  |-- the r|
|00000600| 65 73 6f 75 72 63 65 20 | 69 64 20 6f 66 20 74 68 |esource |id of th|
|00000610| 65 20 74 72 61 6e 73 6c | 69 74 65 72 61 74 69 6f |e transl|iteratio|
|00000620| 6e 20 74 61 62 6c 65 0d | 23 20 09 77 69 6c 6c 20 |n table.|# .will |
|00000630| 62 65 20 66 65 74 63 68 | 65 64 20 20 62 6f 6f 6c |be fetch|ed  bool|
|00000640| 65 61 6e 20 20 2d 2d 20 | 77 69 6c 6c 20 74 68 65 |ean  -- |will the|
|00000650| 20 6d 65 73 73 61 67 65 | 20 62 65 20 5b 72 65 5d | message| be [re]|
|00000660| 66 65 74 63 68 65 64 20 | 6f 6e 20 6e 65 78 74 20 |fetched |on next |
|00000670| 63 68 65 63 6b 3f 0d 23 | 20 09 77 69 6c 6c 20 62 |check?.#| .will b|
|00000680| 65 20 64 65 6c 65 74 65 | 64 20 20 62 6f 6f 6c 65 |e delete|d  boole|
|00000690| 61 6e 20 20 2d 2d 20 77 | 69 6c 6c 20 74 68 65 20 |an  -- w|ill the |
|000006a0| 6d 65 73 73 61 67 65 20 | 62 65 20 64 65 6c 65 74 |message |be delet|
|000006b0| 65 64 20 66 72 6f 6d 20 | 73 65 72 76 65 72 20 6f |ed from |server o|
|000006c0| 6e 20 6e 65 78 74 20 63 | 68 65 63 6b 3f 0d 23 20 |n next c|heck?.# |
|000006d0| 0d 0d 69 66 20 24 73 74 | 61 72 74 69 6e 67 55 70 |..if $st|artingUp|
|000006e0| 20 7b 0d 09 73 65 74 20 | 6d 61 69 6c 4d 65 6e 75 | {..set |mailMenu|
|000006f0| 20 09 09 22 a5 31 33 38 | 22 0d 09 61 64 64 4d 65 | ..".138|"..addMe|
|00000700| 6e 75 20 6d 61 69 6c 4d | 65 6e 75 0d 09 72 65 74 |nu mailM|enu..ret|
|00000710| 75 72 6e 0d 7d 0d 0d 0d | 0d 70 72 6f 63 20 6d 61 |urn.}...|.proc ma|
|00000720| 69 6c 4d 65 6e 75 20 7b | 7d 20 7b 7d 0d 70 72 6f |ilMenu {|} {}.pro|
|00000730| 63 20 64 75 6d 6d 79 4d | 61 69 6c 20 7b 7d 20 7b |c dummyM|ail {} {|
|00000740| 7d 0d 0d 0d 61 64 64 4d | 6f 64 65 20 4d 61 69 6c |}...addM|ode Mail|
|00000750| 20 64 75 6d 6d 79 4d 61 | 69 6c 20 7b 7d 20 6d 61 | dummyMa|il {} ma|
|00000760| 69 6c 4d 65 6e 75 0d 0d | 69 66 20 7b 21 5b 69 6e |ilMenu..|if {![in|
|00000770| 66 6f 20 65 78 69 73 74 | 73 20 74 72 61 73 68 4e |fo exist|s trashN|
|00000780| 61 6d 65 5d 7d 20 7b 73 | 65 74 20 74 72 61 73 68 |ame]} {s|et trash|
|00000790| 4e 61 6d 65 20 22 54 72 | 61 73 68 22 7d 0d 0d 6e |Name "Tr|ash"}..n|
|000007a0| 65 77 4d 6f 64 65 56 61 | 72 20 4d 61 69 6c 20 77 |ewModeVa|r Mail w|
|000007b0| 6f 72 64 42 72 65 61 6b | 20 7b 28 5c 24 29 3f 5b |ordBreak| {(\$)?[|
|000007c0| 61 2d 7a 41 2d 5a 30 2d | 39 5f 2e 5d 2b 7d 20 30 |a-zA-Z0-|9_.]+} 0|
|000007d0| 0d 6e 65 77 4d 6f 64 65 | 56 61 72 20 4d 61 69 6c |.newMode|Var Mail|
|000007e0| 20 77 6f 72 64 57 72 61 | 70 20 7b 30 7d 20 31 0d | wordWra|p {0} 1.|
|000007f0| 6e 65 77 4d 6f 64 65 56 | 61 72 20 4d 61 69 6c 20 |newModeV|ar Mail |
|00000800| 77 6f 72 64 42 72 65 61 | 6b 50 72 65 66 61 63 65 |wordBrea|kPreface|
|00000810| 20 7b 5b 5e 61 2d 7a 41 | 2d 5a 30 2d 39 5f 5c 24 | {[^a-zA|-Z0-9_\$|
|00000820| 5d 7d 20 30 0d 6e 65 77 | 4d 6f 64 65 56 61 72 20 |]} 0.new|ModeVar |
|00000830| 4d 61 69 6c 20 61 75 74 | 6f 4d 61 72 6b 09 30 09 |Mail aut|oMark.0.|
|00000840| 31 0d 73 65 74 20 6d 61 | 69 6c 4b 65 79 77 6f 72 |1.set ma|ilKeywor|
|00000850| 64 73 20 7b 7b 53 75 62 | 6a 65 63 74 3a 7d 20 7b |ds {{Sub|ject:} {|
|00000860| 54 6f 3a 7d 20 7b 46 72 | 6f 6d 3a 7d 20 7b 43 63 |To:} {Fr|om:} {Cc|
|00000870| 3a 7d 20 7b 44 61 74 65 | 3a 7d 20 7b 53 65 6e 64 |:} {Date|:} {Send|
|00000880| 65 72 3a 7d 7d 0d 72 65 | 67 4d 6f 64 65 4b 65 79 |er:}}.re|gModeKey|
|00000890| 77 6f 72 64 73 20 2d 6b | 20 62 6c 75 65 20 2d 65 |words -k| blue -e|
|000008a0| 20 7b 3e 7d 20 4d 61 69 | 6c 20 24 6d 61 69 6c 4b | {>} Mai|l $mailK|
|000008b0| 65 79 77 6f 72 64 73 0d | 0d 0d 23 3d 3d 3d 3d 3d |eywords.|..#=====|
|000008c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000008f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000900| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 0d 0d 23 3d |========|===...#=|
|00000910| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000920| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000930| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000940| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000950| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 0d 6e |========|======.n|
|00000960| 65 77 4d 6f 64 65 56 61 | 72 20 4d 61 69 6c 20 74 |ewModeVa|r Mail t|
|00000970| 6f 73 73 4f 6e 51 75 65 | 75 65 09 09 31 09 31 0d |ossOnQue|ue..1.1.|
|00000980| 6e 65 77 4d 6f 64 65 56 | 61 72 20 4d 61 69 6c 09 |newModeV|ar Mail.|
|00000990| 73 77 69 74 63 68 4f 6e | 51 75 65 75 65 09 30 09 |switchOn|Queue.0.|
|000009a0| 31 0d 23 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |1.#=====|========|
|000009b0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009c0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000009f0| 3d 3d 0d 23 20 55 74 69 | 6c 69 74 79 20 72 6f 75 |==.# Uti|lity rou|
|00000a00| 74 69 6e 65 73 2e 0d 70 | 72 6f 63 20 65 75 64 6f |tines..p|roc eudo|
|00000a10| 72 61 46 6f 6c 64 65 72 | 20 7b 7d 20 7b 20 6e 61 |raFolder| {} { na|
|00000a20| 6d 65 4f 62 6a 65 63 74 | 20 65 75 4d 46 20 7b 27 |meObject| euMF {'|
|00000a30| 54 45 58 54 27 28 29 7d | 20 5b 6e 75 6c 6c 4f 62 |TEXT'()}| [nullOb|
|00000a40| 6a 65 63 74 5d 20 7d 0d | 70 72 6f 63 20 6d 61 69 |ject] }.|proc mai|
|00000a50| 6c 62 6f 78 42 79 4e 61 | 6d 65 20 7b 6e 61 6d 65 |lboxByNa|me {name|
|00000a60| 7d 20 7b 20 6e 61 6d 65 | 4f 62 6a 65 63 74 20 65 |} { name|Object e|
|00000a70| 75 4d 42 20 22 d2 24 6e | 61 6d 65 d3 22 20 5b 65 |uMB ".$n|ame." [e|
|00000a80| 75 64 6f 72 61 46 6f 6c | 64 65 72 5d 20 7d 0d 70 |udoraFol|der] }.p|
|00000a90| 72 6f 63 20 6d 61 69 6c | 62 6f 78 42 79 49 6e 64 |roc mail|boxByInd|
|00000aa0| 65 78 20 7b 69 6e 64 7d | 20 7b 20 69 6e 64 65 78 |ex {ind}| { index|
|00000ab0| 4f 62 6a 65 63 74 20 65 | 75 4d 42 20 24 69 6e 64 |Object e|uMB $ind|
|00000ac0| 20 5b 65 75 64 6f 72 61 | 46 6f 6c 64 65 72 5d 20 | [eudora|Folder] |
|00000ad0| 7d 0d 70 72 6f 63 20 65 | 75 64 6f 72 61 4d 65 73 |}.proc e|udoraMes|
|00000ae0| 73 61 67 65 20 7b 6d 73 | 67 5f 69 64 20 6d 61 69 |sage {ms|g_id mai|
|00000af0| 6c 62 6f 78 7d 20 7b 20 | 69 6e 64 65 78 4f 62 6a |lbox} { |indexObj|
|00000b00| 65 63 74 20 65 75 4d 53 | 20 24 6d 73 67 5f 69 64 |ect euMS| $msg_id|
|00000b10| 20 5b 6d 61 69 6c 62 6f | 78 42 79 4e 61 6d 65 20 | [mailbo|xByName |
|00000b20| 24 6d 61 69 6c 62 6f 78 | 5d 20 7d 0d 70 72 6f 63 |$mailbox|] }.proc|
|00000b30| 20 6d 61 69 6c 62 6f 78 | 50 72 6f 70 65 72 74 79 | mailbox|Property|
|00000b40| 20 7b 70 72 6f 70 20 6d | 61 69 6c 62 6f 78 7d 20 | {prop m|ailbox} |
|00000b50| 7b 20 6f 62 6a 65 63 74 | 50 72 6f 70 65 72 74 79 |{ object|Property|
|00000b60| 20 27 43 53 4f 6d 27 20 | 24 70 72 6f 70 20 5b 6d | 'CSOm' |$prop [m|
|00000b70| 61 69 6c 62 6f 78 42 79 | 4e 61 6d 65 20 24 6d 61 |ailboxBy|Name $ma|
|00000b80| 69 6c 62 6f 78 5d 20 7d | 0d 70 72 6f 63 20 6d 65 |ilbox] }|.proc me|
|00000b90| 73 73 61 67 65 50 72 6f | 70 65 72 74 79 20 7b 70 |ssagePro|perty {p|
|00000ba0| 72 6f 70 20 6d 73 67 5f | 69 64 20 6d 61 69 6c 62 |rop msg_|id mailb|
|00000bb0| 6f 78 7d 20 7b 20 6f 62 | 6a 65 63 74 50 72 6f 70 |ox} { ob|jectProp|
|00000bc0| 65 72 74 79 20 27 43 53 | 4f 6d 27 20 24 70 72 6f |erty 'CS|Om' $pro|
|00000bd0| 70 20 5b 65 75 64 6f 72 | 61 4d 65 73 73 61 67 65 |p [eudor|aMessage|
|00000be0| 20 24 6d 73 67 5f 69 64 | 20 24 6d 61 69 6c 62 6f | $msg_id| $mailbo|
|00000bf0| 78 5d 20 7d 0d 0d 23 20 | 47 65 74 20 70 61 74 68 |x] }..# |Get path|
|00000c00| 2d 6e 61 6d 65 20 66 6f | 72 20 69 6e 64 69 63 61 |-name fo|r indica|
|00000c10| 74 65 64 20 6d 61 69 6c | 62 6f 78 0d 70 72 6f 63 |ted mail|box.proc|
|00000c20| 20 6d 61 69 6c 62 6f 78 | 50 61 74 68 4e 61 6d 65 | mailbox|PathName|
|00000c30| 20 7b 6e 61 6d 65 7d 20 | 7b 0d 09 65 78 74 72 61 | {name} |{..extra|
|00000c40| 63 74 50 61 74 68 20 5b | 6d 61 69 6c 62 6f 78 50 |ctPath [|mailboxP|
|00000c50| 72 6f 70 65 72 74 79 20 | 65 75 46 53 20 24 6e 61 |roperty |euFS $na|
|00000c60| 6d 65 5d 0d 7d 0d 0d 70 | 72 6f 63 20 6d 61 69 6c |me].}..p|roc mail|
|00000c70| 62 6f 78 50 61 74 68 49 | 6e 64 65 78 20 7b 69 6e |boxPathI|ndex {in|
|00000c80| 64 7d 20 7b 0d 09 73 65 | 74 20 72 65 73 20 5b 6f |d} {..se|t res [o|
|00000c90| 62 6a 65 63 74 50 72 6f | 70 65 72 74 79 20 27 43 |bjectPro|perty 'C|
|00000ca0| 53 4f 6d 27 20 65 75 46 | 53 20 5b 6d 61 69 6c 62 |SOm' euF|S [mailb|
|00000cb0| 6f 78 42 79 49 6e 64 65 | 78 20 24 69 6e 64 5d 5d |oxByInde|x $ind]]|
|00000cc0| 0d 09 72 65 74 75 72 6e | 20 5b 65 78 74 72 61 63 |..return| [extrac|
|00000cd0| 74 50 61 74 68 20 24 72 | 65 73 5d 0d 7d 0d 0d 23 |tPath $r|es].}..#|
|00000ce0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000cf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00000d20| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 0d |========|=======.|
|00000d30| 0d 0d 70 72 6f 63 20 63 | 68 65 63 6b 4d 61 69 6c |..proc c|heckMail|
|00000d40| 50 61 74 68 20 7b 7d 20 | 7b 0d 09 73 65 74 20 6e |Path {} |{..set n|
|00000d50| 61 6d 65 20 5b 6e 61 6d | 65 46 72 6f 6d 41 70 70 |ame [nam|eFromApp|
|00000d60| 6c 20 43 53 4f 6d 5d 0d | 09 6c 61 75 6e 63 68 20 |l CSOm].|.launch |
|00000d70| 24 6e 61 6d 65 0d 09 72 | 65 74 75 72 6e 20 5b 66 |$name..r|eturn [f|
|00000d80| 69 6c 65 20 74 61 69 6c | 20 24 6e 61 6d 65 5d 0d |ile tail| $name].|
|00000d90| 7d 0d 0d 69 66 20 7b 21 | 5b 69 6e 66 6f 20 65 78 |}..if {!|[info ex|
|00000da0| 69 73 74 73 20 65 75 64 | 6f 72 61 42 6f 78 65 73 |ists eud|oraBoxes|
|00000db0| 5d 7d 20 7b 0d 09 73 65 | 74 20 65 75 64 6f 72 61 |]} {..se|t eudora|
|00000dc0| 42 6f 78 65 73 20 7b 49 | 6e 20 4f 75 74 7d 0d 7d |Boxes {I|n Out}.}|
|00000dd0| 0d 0d 6d 65 6e 75 20 2d | 6e 20 24 6d 61 69 6c 4d |..menu -|n $mailM|
|00000de0| 65 6e 75 20 2d 70 20 65 | 75 64 6f 72 61 50 72 6f |enu -p e|udoraPro|
|00000df0| 63 20 7b 0d 09 22 3c 53 | 62 61 63 6b 67 72 6f 75 |c {.."<S|backgrou|
|00000e00| 6e 64 45 75 64 6f 72 61 | 22 0d 09 22 3c 53 65 75 |ndEudora|".."<Seu|
|00000e10| 64 6f 72 61 22 0d 09 22 | 68 65 6c 70 22 0d 09 22 |dora".."|help".."|
|00000e20| 70 61 6c 65 74 74 65 22 | 0d 09 22 28 2d 22 0d 09 |palette"|.."(-"..|
|00000e30| 22 2f 65 3c 55 6e 65 77 | 4d 65 73 73 61 67 65 22 |"/e<Unew|Message"|
|00000e40| 0d 09 22 63 63 22 0d 09 | 22 62 63 63 22 0d 09 22 |.."cc"..|"bcc".."|
|00000e50| 28 2d 22 0d 09 22 2f 66 | 3c 55 73 65 6e 64 22 0d |(-".."/f|<Usend".|
|00000e60| 09 22 2f 67 3c 55 72 65 | 70 6c 79 22 0d 09 22 28 |."/g<Ure|ply".."(|
|00000e70| 2d 22 0d 09 22 2f 2c 3c | 53 66 69 6e 69 73 68 4e |-".."/,<|SfinishN|
|00000e80| 69 63 6b 6e 61 6d 65 22 | 0d 09 22 2f 2c 3c 53 3c |ickname"|.."/,<S<|
|00000e90| 4f 3c 49 73 75 62 73 74 | 69 74 75 74 65 4e 69 63 |O<Isubst|ituteNic|
|00000ea0| 6b 6e 61 6d 65 22 0d 09 | 22 65 64 69 74 4e 69 63 |kname"..|"editNic|
|00000eb0| 6b 6e 61 6d 65 73 22 0d | 09 22 75 70 64 61 74 65 |knames".|."update|
|00000ec0| 4e 69 63 6b 6e 61 6d 65 | 73 22 0d 09 22 28 2d 22 |Nickname|s".."(-"|
|00000ed0| 0d 09 22 75 70 64 61 74 | 65 4d 61 69 6c 62 6f 78 |.."updat|eMailbox|
|00000ee0| 4c 69 73 74 73 22 0d 09 | 7b 6d 65 6e 75 20 2d 6e |Lists"..|{menu -n|
|00000ef0| 20 6f 70 65 6e 20 2d 70 | 20 6d 61 69 6c 42 6f 78 | open -p| mailBox|
|00000f00| 50 72 6f 63 20 2d 6d 20 | 7b 7d 7d 0d 09 7b 6d 65 |Proc -m |{}}..{me|
|00000f10| 6e 75 20 2d 6e 20 6d 6f | 76 65 54 6f 20 2d 70 20 |nu -n mo|veTo -p |
|00000f20| 74 72 61 6e 73 66 65 72 | 50 72 6f 63 20 2d 6d 20 |transfer|Proc -m |
|00000f30| 7b 7d 7d 0d 09 22 28 2d | 22 0d 09 7b 6d 65 6e 75 |{}}.."(-|"..{menu|
|00000f40| 20 2d 6e 20 74 65 6c 6c | 45 75 64 6f 72 61 20 2d | -n tell|Eudora -|
|00000f50| 70 20 65 75 64 6f 72 61 | 50 72 6f 63 20 7b 0d 09 |p eudora|Proc {..|
|00000f60| 09 22 2f 6b 3c 55 66 6c | 75 73 68 4f 75 74 62 6f |."/k<Ufl|ushOutbo|
|00000f70| 78 22 0d 09 09 22 2f 6c | 3c 55 63 68 65 63 6b 46 |x"..."/l|<UcheckF|
|00000f80| 6f 72 4d 61 69 6c 22 0d | 09 09 22 28 2d 22 0d 09 |orMail".|.."(-"..|
|00000f90| 09 73 74 61 72 74 4e 6f | 74 69 66 79 69 6e 67 0d |.startNo|tifying.|
|00000fa0| 09 09 73 74 6f 70 4e 6f | 74 69 66 79 69 6e 67 7d |..stopNo|tifying}|
|00000fb0| 7d 0d 09 7b 6d 65 6e 75 | 20 2d 6e 20 6d 61 69 6c |}..{menu| -n mail|
|00000fc0| 46 6c 61 67 73 20 2d 70 | 20 6d 61 69 6c 46 6c 61 |Flags -p| mailFla|
|00000fd0| 67 73 50 72 6f 63 20 7b | 61 6c 65 72 74 4f 6e 49 |gsProc {|alertOnI|
|00000fe0| 6e 63 6f 6d 69 6e 67 20 | 66 6c 75 73 68 4f 6e 43 |ncoming |flushOnC|
|00000ff0| 68 65 63 6b 20 69 6d 6d | 65 64 69 61 74 65 53 65 |heck imm|ediateSe|
|00001000| 6e 64 20 2d 2d 20 74 72 | 61 73 68 4e 61 6d 65 7d |nd -- tr|ashName}|
|00001010| 7d 0d 7d 0d 6d 65 6e 75 | 20 2d 6e 20 6f 70 65 6e |}.}.menu| -n open|
|00001020| 20 2d 70 20 6d 61 69 6c | 42 6f 78 50 72 6f 63 20 | -p mail|BoxProc |
|00001030| 2d 6d 20 5b 63 6f 6e 63 | 61 74 20 5b 6c 69 73 74 |-m [conc|at [list|
|00001040| 20 22 2f 68 3c 55 4f 70 | 65 6e 20 4d 61 69 6c 62 | "/h<UOp|en Mailb|
|00001050| 6f 78 c9 22 20 22 28 2d | 22 5d 20 24 65 75 64 6f |ox." "(-|"] $eudo|
|00001060| 72 61 42 6f 78 65 73 5d | 0d 6d 65 6e 75 20 2d 6e |raBoxes]|.menu -n|
|00001070| 20 6d 6f 76 65 54 6f 20 | 2d 70 20 74 72 61 6e 73 | moveTo |-p trans|
|00001080| 66 65 72 50 72 6f 63 20 | 2d 6d 20 5b 63 6f 6e 63 |ferProc |-m [conc|
|00001090| 61 74 20 5b 6c 69 73 74 | 20 22 2f 69 3c 55 4d 6f |at [list| "/i<UMo|
|000010a0| 76 65 20 54 6f 20 54 72 | 61 73 68 22 20 22 2f 6a |ve To Tr|ash" "/j|
|000010b0| 3c 55 4d 6f 76 65 20 54 | 6f 20 4d 61 69 6c 62 6f |<UMove T|o Mailbo|
|000010c0| 78 c9 22 20 22 28 2d 22 | 5d 20 24 65 75 64 6f 72 |x." "(-"|] $eudor|
|000010d0| 61 42 6f 78 65 73 5d 0d | 0d 69 66 20 7b 21 5b 69 |aBoxes].|.if {![i|
|000010e0| 6e 66 6f 20 65 78 69 73 | 74 73 20 65 75 64 6f 72 |nfo exis|ts eudor|
|000010f0| 61 4e 69 63 6b 6e 61 6d | 65 73 5d 20 26 26 20 5b |aNicknam|es] && [|
|00001100| 66 69 6c 65 20 65 78 69 | 73 74 73 20 22 5b 66 69 |file exi|sts "[fi|
|00001110| 6c 65 20 64 69 72 6e 61 | 6d 65 20 5b 66 69 6c 65 |le dirna|me [file|
|00001120| 20 64 69 72 6e 61 6d 65 | 20 24 50 52 45 46 53 5d | dirname| $PREFS]|
|00001130| 5d 3a 45 75 64 6f 72 61 | 20 46 6f 6c 64 65 72 3a |]:Eudora| Folder:|
|00001140| 45 75 64 6f 72 61 20 4e | 69 63 6b 6e 61 6d 65 73 |Eudora N|icknames|
|00001150| 22 5d 7d 20 7b 0d 09 73 | 65 74 20 65 75 64 6f 72 |"]} {..s|et eudor|
|00001160| 61 4e 69 63 6b 6e 61 6d | 65 73 20 22 5b 66 69 6c |aNicknam|es "[fil|
|00001170| 65 20 64 69 72 6e 61 6d | 65 20 5b 66 69 6c 65 20 |e dirnam|e [file |
|00001180| 64 69 72 6e 61 6d 65 20 | 24 50 52 45 46 53 5d 5d |dirname |$PREFS]]|
|00001190| 3a 45 75 64 6f 72 61 20 | 46 6f 6c 64 65 72 3a 45 |:Eudora |Folder:E|
|000011a0| 75 64 6f 72 61 20 4e 69 | 63 6b 6e 61 6d 65 73 22 |udora Ni|cknames"|
|000011b0| 0d 7d 0d 0d 0d 70 72 6f | 63 20 75 70 64 61 74 65 |.}...pro|c update|
|000011c0| 4e 69 63 6b 6e 61 6d 65 | 73 20 7b 7b 61 72 67 20 |Nickname|s {{arg |
|000011d0| 22 22 7d 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 65 |""}} {..|global e|
|000011e0| 75 4e 69 63 6b 6e 61 6d | 65 73 20 65 75 64 6f 72 |uNicknam|es eudor|
|000011f0| 61 4e 69 63 6b 6e 61 6d | 65 73 0d 09 0d 09 69 66 |aNicknam|es....if|
|00001200| 20 7b 21 5b 69 6e 66 6f | 20 65 78 69 73 74 73 20 | {![info| exists |
|00001210| 65 75 64 6f 72 61 4e 69 | 63 6b 6e 61 6d 65 73 5d |eudoraNi|cknames]|
|00001220| 20 7c 7c 20 21 5b 66 69 | 6c 65 20 65 78 69 73 74 | || ![fi|le exist|
|00001230| 73 20 24 65 75 64 6f 72 | 61 4e 69 63 6b 6e 61 6d |s $eudor|aNicknam|
|00001240| 65 73 5d 7d 20 7b 0d 09 | 09 69 66 20 7b 21 5b 73 |es]} {..|.if {![s|
|00001250| 74 72 69 6e 67 20 6c 65 | 6e 67 74 68 20 24 61 72 |tring le|ngth $ar|
|00001260| 67 5d 7d 20 7b 0d 09 09 | 09 61 6c 65 72 74 6e 6f |g]} {...|.alertno|
|00001270| 74 65 20 7b 50 6c 65 61 | 73 65 20 6c 6f 63 61 74 |te {Plea|se locat|
|00001280| 65 20 74 68 65 20 66 69 | 6c 65 20 22 45 75 64 6f |e the fi|le "Eudo|
|00001290| 72 61 20 4e 69 63 6b 6e | 61 6d 65 73 22 20 76 69 |ra Nickn|ames" vi|
|000012a0| 61 20 22 43 6f 6e 66 69 | 67 3a 41 70 70 20 50 61 |a "Confi|g:App Pa|
|000012b0| 74 68 73 22 2e 7d 0d 09 | 09 7d 0d 09 09 72 65 74 |ths".}..|.}...ret|
|000012c0| 75 72 6e 0d 09 7d 0d 09 | 0d 09 73 65 74 20 66 64 |urn..}..|..set fd|
|000012d0| 20 5b 6f 70 65 6e 20 24 | 65 75 64 6f 72 61 4e 69 | [open $|eudoraNi|
|000012e0| 63 6b 6e 61 6d 65 73 5d | 0d 09 66 6f 72 65 61 63 |cknames]|..foreac|
|000012f0| 68 20 61 20 5b 73 70 6c | 69 74 20 5b 72 65 61 64 |h a [spl|it [read|
|00001300| 20 24 66 64 5d 20 22 5c | 6e 22 5d 20 7b 0d 09 09 | $fd] "\|n"] {...|
|00001310| 69 66 20 7b 5b 6c 6c 65 | 6e 67 74 68 20 24 61 5d |if {[lle|ngth $a]|
|00001320| 7d 20 7b 0d 09 09 09 73 | 65 74 20 65 75 4e 69 63 |} {....s|et euNic|
|00001330| 6b 6e 61 6d 65 73 28 5b | 6c 69 6e 64 65 78 20 24 |knames([|lindex $|
|00001340| 61 20 31 5d 29 20 5b 6c | 69 6e 64 65 78 20 24 61 |a 1]) [l|index $a|
|00001350| 20 32 5d 0d 09 09 7d 0d | 09 7d 0d 09 63 6c 6f 73 | 2]...}.|.}..clos|
|00001360| 65 20 24 66 64 0d 7d 0d | 75 70 64 61 74 65 4e 69 |e $fd.}.|updateNi|
|00001370| 63 6b 6e 61 6d 65 73 20 | 71 75 69 65 74 0d 0d 0d |cknames |quiet...|
|00001380| 70 72 6f 63 20 66 69 6e | 69 73 68 4e 69 63 6b 6e |proc fin|ishNickn|
|00001390| 61 6d 65 20 7b 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |ame {} {|..global|
|000013a0| 20 65 75 4e 69 63 6b 6e | 61 6d 65 73 0d 09 73 65 | euNickn|ames..se|
|000013b0| 74 20 70 6f 73 20 5b 67 | 65 74 50 6f 73 5d 0d 09 |t pos [g|etPos]..|
|000013c0| 62 61 63 6b 77 61 72 64 | 57 6f 72 64 0d 09 73 65 |backward|Word..se|
|000013d0| 74 20 74 65 78 74 20 5b | 67 65 74 54 65 78 74 20 |t text [|getText |
|000013e0| 5b 67 65 74 50 6f 73 5d | 20 24 70 6f 73 5d 0d 09 |[getPos]| $pos]..|
|000013f0| 67 6f 74 6f 20 24 70 6f | 73 0d 09 66 6f 72 65 61 |goto $po|s..forea|
|00001400| 63 68 20 77 20 5b 61 72 | 72 61 79 20 6e 61 6d 65 |ch w [ar|ray name|
|00001410| 73 20 65 75 4e 69 63 6b | 6e 61 6d 65 73 5d 20 7b |s euNick|names] {|
|00001420| 0d 09 09 69 66 20 7b 5b | 73 74 72 69 6e 67 20 6d |...if {[|string m|
|00001430| 61 74 63 68 20 22 24 74 | 65 78 74 2a 22 20 24 77 |atch "$t|ext*" $w|
|00001440| 5d 7d 20 7b 0d 09 09 09 | 6c 61 70 70 65 6e 64 20 |]} {....|lappend |
|00001450| 6d 61 74 63 68 65 73 20 | 24 77 0d 09 09 7d 0d 09 |matches |$w...}..|
|00001460| 7d 0d 09 69 66 20 7b 21 | 5b 6c 6c 65 6e 67 74 68 |}..if {!|[llength|
|00001470| 20 24 6d 61 74 63 68 65 | 73 5d 7d 20 7b 0d 09 09 | $matche|s]} {...|
|00001480| 62 65 65 70 0d 09 7d 20 | 65 6c 73 65 20 7b 0d 09 |beep..} |else {..|
|00001490| 09 69 6e 73 65 72 74 54 | 65 78 74 20 5b 73 74 72 |.insertT|ext [str|
|000014a0| 69 6e 67 20 72 61 6e 67 | 65 20 5b 6c 61 72 67 65 |ing rang|e [large|
|000014b0| 73 74 50 72 65 66 69 78 | 20 24 6d 61 74 63 68 65 |stPrefix| $matche|
|000014c0| 73 5d 20 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |s] [stri|ng lengt|
|000014d0| 68 20 24 74 65 78 74 5d | 20 65 6e 64 5d 0d 09 7d |h $text]| end]..}|
|000014e0| 0d 7d 09 0d 0d 0d 70 72 | 6f 63 20 65 64 69 74 4e |.}....pr|oc editN|
|000014f0| 69 63 6b 6e 61 6d 65 73 | 20 7b 7d 20 7b 0d 09 67 |icknames| {} {..g|
|00001500| 6c 6f 62 61 6c 20 65 75 | 64 6f 72 61 4e 69 63 6b |lobal eu|doraNick|
|00001510| 6e 61 6d 65 73 0d 09 0d | 09 65 64 69 74 20 22 24 |names...|.edit "$|
|00001520| 65 75 64 6f 72 61 4e 69 | 63 6b 6e 61 6d 65 73 22 |eudoraNi|cknames"|
|00001530| 0d 7d 0d 0d 0d 70 72 6f | 63 20 73 75 62 73 74 69 |.}...pro|c substi|
|00001540| 74 75 74 65 4e 69 63 6b | 6e 61 6d 65 20 7b 7d 20 |tuteNick|name {} |
|00001550| 7b 0d 09 67 6c 6f 62 61 | 6c 20 65 75 4e 69 63 6b |{..globa|l euNick|
|00001560| 6e 61 6d 65 73 0d 09 66 | 69 6e 69 73 68 4e 69 63 |names..f|inishNic|
|00001570| 6b 6e 61 6d 65 0d 09 73 | 65 74 20 74 6f 20 5b 67 |kname..s|et to [g|
|00001580| 65 74 50 6f 73 5d 0d 09 | 62 61 63 6b 77 61 72 64 |etPos]..|backward|
|00001590| 57 6f 72 64 0d 09 73 65 | 74 20 66 72 6f 6d 20 5b |Word..se|t from [|
|000015a0| 67 65 74 50 6f 73 5d 0d | 09 73 65 74 20 74 65 78 |getPos].|.set tex|
|000015b0| 74 20 5b 67 65 74 54 65 | 78 74 20 24 66 72 6f 6d |t [getTe|xt $from|
|000015c0| 20 24 74 6f 5d 0d 09 67 | 6f 74 6f 20 24 74 6f 0d | $to]..g|oto $to.|
|000015d0| 0d 09 69 66 20 7b 5b 69 | 6e 66 6f 20 65 78 69 73 |..if {[i|nfo exis|
|000015e0| 74 73 20 65 75 4e 69 63 | 6b 6e 61 6d 65 73 28 24 |ts euNic|knames($|
|000015f0| 74 65 78 74 29 5d 7d 20 | 7b 0d 09 09 72 65 70 6c |text)]} |{...repl|
|00001600| 61 63 65 54 65 78 74 20 | 24 66 72 6f 6d 20 24 74 |aceText |$from $t|
|00001610| 6f 20 5b 73 65 74 20 65 | 75 4e 69 63 6b 6e 61 6d |o [set e|uNicknam|
|00001620| 65 73 28 24 74 65 78 74 | 29 5d 0d 09 7d 0d 7d 0d |es($text|)]..}.}.|
|00001630| 0d 70 72 6f 63 20 6f 70 | 65 6e 4d 61 69 6c 62 6f |.proc op|enMailbo|
|00001640| 78 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 65 |x {} {..|global e|
|00001650| 75 64 6f 72 61 42 6f 78 | 65 73 20 65 75 64 6f 72 |udoraBox|es eudor|
|00001660| 61 4c 61 73 74 46 6f 6c | 64 65 72 20 6d 6f 64 69 |aLastFol|der modi|
|00001670| 66 69 65 64 56 61 72 73 | 0d 09 69 66 20 7b 5b 69 |fiedVars|..if {[i|
|00001680| 6e 66 6f 20 65 78 69 73 | 74 73 20 65 75 64 6f 72 |nfo exis|ts eudor|
|00001690| 61 4c 61 73 74 46 6f 6c | 64 65 72 5d 7d 20 7b 0d |aLastFol|der]} {.|
|000016a0| 09 09 73 65 74 20 66 6f | 6c 64 20 24 65 75 64 6f |..set fo|ld $eudo|
|000016b0| 72 61 4c 61 73 74 46 6f | 6c 64 65 72 0d 09 7d 20 |raLastFo|lder..} |
|000016c0| 65 6c 73 65 20 7b 0d 09 | 09 73 65 74 20 66 6f 6c |else {..|.set fol|
|000016d0| 64 20 5b 6c 69 6e 64 65 | 78 20 24 65 75 64 6f 72 |d [linde|x $eudor|
|000016e0| 61 42 6f 78 65 73 20 30 | 5d 0d 09 7d 0d 09 73 65 |aBoxes 0|]..}..se|
|000016f0| 74 20 65 75 64 6f 72 61 | 4c 61 73 74 46 6f 6c 64 |t eudora|LastFold|
|00001700| 65 72 20 5b 73 50 72 6f | 6d 70 74 43 68 6f 69 63 |er [sPro|mptChoic|
|00001710| 65 73 20 22 4f 70 65 6e | 20 6d 61 69 6c 62 6f 78 |es "Open| mailbox|
|00001720| 22 20 24 66 6f 6c 64 20 | 24 65 75 64 6f 72 61 42 |" $fold |$eudoraB|
|00001730| 6f 78 65 73 5d 0d 09 6d | 61 69 6c 42 6f 78 50 72 |oxes]..m|ailBoxPr|
|00001740| 6f 63 20 64 75 6d 6d 79 | 20 24 65 75 64 6f 72 61 |oc dummy| $eudora|
|00001750| 4c 61 73 74 46 6f 6c 64 | 65 72 0d 09 6c 61 70 70 |LastFold|er..lapp|
|00001760| 65 6e 64 20 6d 6f 64 69 | 66 69 65 64 56 61 72 73 |end modi|fiedVars|
|00001770| 20 65 75 64 6f 72 61 4c | 61 73 74 46 6f 6c 64 65 | eudoraL|astFolde|
|00001780| 72 0d 7d 0d 0d 0d 70 72 | 6f 63 20 6d 6f 76 65 54 |r.}...pr|oc moveT|
|00001790| 6f 46 6f 6c 64 65 72 50 | 72 6f 63 20 7b 63 75 72 |oFolderP|roc {cur|
|000017a0| 72 20 63 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 65 |r c} {..|global e|
|000017b0| 75 64 6f 72 61 42 6f 78 | 65 73 0d 09 69 66 20 7b |udoraBox|es..if {|
|000017c0| 24 63 20 21 3d 20 22 5c | 74 22 7d 20 7b 72 65 74 |$c != "\|t"} {ret|
|000017d0| 75 72 6e 20 24 63 7d 0d | 09 0d 09 73 65 74 20 6d |urn $c}.|...set m|
|000017e0| 61 74 63 68 65 73 20 7b | 7d 0d 09 66 6f 72 65 61 |atches {|}..forea|
|000017f0| 63 68 20 77 20 24 65 75 | 64 6f 72 61 42 6f 78 65 |ch w $eu|doraBoxe|
|00001800| 73 20 7b 0d 09 09 69 66 | 20 7b 5b 73 74 72 69 6e |s {...if| {[strin|
|00001810| 67 20 6d 61 74 63 68 20 | 22 24 63 75 72 72 2a 22 |g match |"$curr*"|
|00001820| 20 24 77 5d 7d 20 7b 0d | 09 09 09 6c 61 70 70 65 | $w]} {.|...lappe|
|00001830| 6e 64 20 6d 61 74 63 68 | 65 73 20 24 77 0d 09 09 |nd match|es $w...|
|00001840| 7d 0d 09 7d 0d 09 69 66 | 20 7b 21 5b 6c 6c 65 6e |}..}..if| {![llen|
|00001850| 67 74 68 20 24 6d 61 74 | 63 68 65 73 5d 7d 20 7b |gth $mat|ches]} {|
|00001860| 0d 09 09 62 65 65 70 0d | 09 7d 20 65 6c 73 65 20 |...beep.|.} else |
|00001870| 7b 0d 09 09 72 65 74 75 | 72 6e 20 5b 73 74 72 69 |{...retu|rn [stri|
|00001880| 6e 67 20 72 61 6e 67 65 | 20 5b 6c 61 72 67 65 73 |ng range| [larges|
|00001890| 74 50 72 65 66 69 78 20 | 24 6d 61 74 63 68 65 73 |tPrefix |$matches|
|000018a0| 5d 20 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |] [strin|g length|
|000018b0| 20 24 63 75 72 72 5d 20 | 65 6e 64 5d 0d 09 7d 0d | $curr] |end]..}.|
|000018c0| 09 72 65 74 75 72 6e 20 | 22 22 0d 7d 0d 0d 0d 70 |.return |"".}...p|
|000018d0| 72 6f 63 20 6d 6f 76 65 | 54 6f 4d 61 69 6c 62 6f |roc move|ToMailbo|
|000018e0| 78 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 65 |x {} {..|global e|
|000018f0| 75 64 6f 72 61 4c 61 73 | 74 46 6f 6c 64 65 72 20 |udoraLas|tFolder |
|00001900| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 20 74 72 61 |modified|Vars tra|
|00001910| 73 68 4e 61 6d 65 0d 09 | 0d 09 69 66 20 7b 5b 69 |shName..|..if {[i|
|00001920| 6e 66 6f 20 65 78 69 73 | 74 73 20 65 75 64 6f 72 |nfo exis|ts eudor|
|00001930| 61 4c 61 73 74 46 6f 6c | 64 65 72 5d 7d 20 7b 0d |aLastFol|der]} {.|
|00001940| 09 09 73 65 74 20 66 6f | 6c 64 20 24 65 75 64 6f |..set fo|ld $eudo|
|00001950| 72 61 4c 61 73 74 46 6f | 6c 64 65 72 0d 09 7d 20 |raLastFo|lder..} |
|00001960| 65 6c 73 65 20 7b 0d 09 | 09 73 65 74 20 66 6f 6c |else {..|.set fol|
|00001970| 64 20 24 74 72 61 73 68 | 4e 61 6d 65 0d 09 7d 0d |d $trash|Name..}.|
|00001980| 09 0d 09 73 65 74 20 66 | 6f 6c 64 65 72 20 5b 73 |...set f|older [s|
|00001990| 74 61 74 75 73 50 72 6f | 6d 70 74 20 2d 66 20 22 |tatusPro|mpt -f "|
|000019a0| 4d 6f 76 65 20 74 6f 20 | 28 24 66 6f 6c 64 29 3a |Move to |($fold):|
|000019b0| 20 22 20 6d 6f 76 65 54 | 6f 46 6f 6c 64 65 72 50 | " moveT|oFolderP|
|000019c0| 72 6f 63 5d 0d 09 69 66 | 20 7b 5b 73 74 72 69 6e |roc]..if| {[strin|
|000019d0| 67 20 6c 65 6e 67 74 68 | 20 24 66 6f 6c 64 65 72 |g length| $folder|
|000019e0| 5d 7d 20 7b 0d 09 09 64 | 6f 46 6f 6c 64 65 72 4d |]} {...d|oFolderM|
|000019f0| 6f 76 65 20 24 66 6f 6c | 64 65 72 0d 09 09 73 65 |ove $fol|der...se|
|00001a00| 74 20 65 75 64 6f 72 61 | 4c 61 73 74 46 6f 6c 64 |t eudora|LastFold|
|00001a10| 65 72 20 24 66 6f 6c 64 | 65 72 0d 09 09 6c 61 70 |er $fold|er...lap|
|00001a20| 70 65 6e 64 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |pend mod|ifiedVar|
|00001a30| 73 20 65 75 64 6f 72 61 | 4c 61 73 74 46 6f 6c 64 |s eudora|LastFold|
|00001a40| 65 72 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 64 |er..} el|se {...d|
|00001a50| 6f 46 6f 6c 64 65 72 4d | 6f 76 65 20 24 66 6f 6c |oFolderM|ove $fol|
|00001a60| 64 0d 09 7d 0d 7d 0d 0d | 0d 70 72 6f 63 20 65 75 |d..}.}..|.proc eu|
|00001a70| 64 6f 72 61 50 72 6f 63 | 20 7b 6d 65 6e 75 20 69 |doraProc| {menu i|
|00001a80| 74 65 6d 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 48 |tem} {..|global H|
|00001a90| 4f 4d 45 20 6d 61 69 6c | 4d 65 6e 75 0d 0d 09 73 |OME mail|Menu...s|
|00001aa0| 77 69 74 63 68 20 24 69 | 74 65 6d 20 7b 0d 09 09 |witch $i|tem {...|
|00001ab0| 22 65 75 64 6f 72 61 22 | 09 09 7b 6c 61 75 6e 63 |"eudora"|..{launc|
|00001ac0| 68 46 6f 72 65 41 70 70 | 6c 20 43 53 4f 6d 7d 0d |hForeApp|l CSOm}.|
|00001ad0| 09 09 22 62 61 63 6b 67 | 72 6f 75 6e 64 45 75 64 |.."backg|roundEud|
|00001ae0| 6f 72 61 22 09 09 7b 6c | 61 75 6e 63 68 20 5b 6e |ora"..{l|aunch [n|
|00001af0| 61 6d 65 46 72 6f 6d 41 | 70 70 6c 20 43 53 4f 6d |ameFromA|ppl CSOm|
|00001b00| 5d 7d 0d 09 09 22 68 65 | 6c 70 22 09 09 09 7b 65 |]}..."he|lp"...{e|
|00001b10| 64 69 74 20 2d 72 20 22 | 24 48 4f 4d 45 3a 48 65 |dit -r "|$HOME:He|
|00001b20| 6c 70 3a 45 75 64 6f 72 | 61 22 7d 0d 09 09 22 70 |lp:Eudor|a"}..."p|
|00001b30| 61 6c 65 74 74 65 22 09 | 09 7b 66 6c 6f 61 74 20 |alette".|.{float |
|00001b40| 2d 6d 20 24 6d 61 69 6c | 4d 65 6e 75 20 2d 4d 20 |-m $mail|Menu -M |
|00001b50| 32 20 2d 6e 20 45 75 64 | 6f 72 61 7d 0d 09 09 22 |2 -n Eud|ora}..."|
|00001b60| 63 63 22 09 09 09 7b 65 | 75 64 6f 72 61 43 63 7d |cc"...{e|udoraCc}|
|00001b70| 0d 09 09 22 62 63 63 22 | 09 09 09 7b 65 75 64 6f |..."bcc"|...{eudo|
|00001b80| 72 61 42 63 63 7d 0d 09 | 09 22 6e 65 77 4d 65 73 |raBcc}..|."newMes|
|00001b90| 73 61 67 65 22 09 7b 6d | 61 69 6c 4e 65 77 4d 73 |sage".{m|ailNewMs|
|00001ba0| 67 7d 0d 09 09 22 72 65 | 70 6c 79 22 09 09 09 7b |g}..."re|ply"...{|
|00001bb0| 6d 61 69 6c 52 65 70 6c | 79 6d 73 67 7d 0d 09 09 |mailRepl|ymsg}...|
|00001bc0| 22 73 65 6e 64 22 09 09 | 09 7b 63 68 65 63 6b 4d |"send"..|.{checkM|
|00001bd0| 61 69 6c 50 61 74 68 3b | 20 6d 61 69 6c 53 65 6e |ailPath;| mailSen|
|00001be0| 64 43 72 65 61 74 65 64 | 4d 73 67 7d 0d 09 09 22 |dCreated|Msg}..."|
|00001bf0| 66 6c 75 73 68 4f 75 74 | 62 6f 78 22 09 7b 63 68 |flushOut|box".{ch|
|00001c00| 65 63 6b 4d 61 69 6c 50 | 61 74 68 3b 20 6d 61 69 |eckMailP|ath; mai|
|00001c10| 6c 46 6c 75 73 68 4f 75 | 74 7d 0d 09 09 22 63 68 |lFlushOu|t}..."ch|
|00001c20| 65 63 6b 46 6f 72 4d 61 | 69 6c 22 09 7b 63 68 65 |eckForMa|il".{che|
|00001c30| 63 6b 4d 61 69 6c 50 61 | 74 68 3b 20 6d 61 69 6c |ckMailPa|th; mail|
|00001c40| 43 68 65 63 6b 7d 0d 09 | 09 22 73 74 61 72 74 4e |Check}..|."startN|
|00001c50| 6f 74 69 66 79 69 6e 67 | 22 20 22 63 68 65 63 6b |otifying|" "check|
|00001c60| 4d 61 69 6c 50 61 74 68 | 3b 20 73 74 61 72 74 4e |MailPath|; startN|
|00001c70| 6f 74 69 66 79 69 6e 67 | 22 0d 09 09 22 73 74 6f |otifying|"..."sto|
|00001c80| 70 4e 6f 74 69 66 79 69 | 6e 67 22 09 22 63 68 65 |pNotifyi|ng"."che|
|00001c90| 63 6b 4d 61 69 6c 50 61 | 74 68 3b 20 73 74 6f 70 |ckMailPa|th; stop|
|00001ca0| 4e 6f 74 69 66 79 69 6e | 67 22 0d 09 09 22 6d 6f |Notifyin|g"..."mo|
|00001cb0| 76 65 54 6f 54 72 61 73 | 68 22 09 7b 6d 61 69 6c |veToTras|h".{mail|
|00001cc0| 54 72 61 73 68 6d 73 67 | 7d 0d 09 09 22 4d 6f 76 |Trashmsg|}..."Mov|
|00001cd0| 65 20 54 6f 20 54 72 61 | 73 68 22 09 7b 6d 61 69 |e To Tra|sh".{mai|
|00001ce0| 6c 54 72 61 73 68 6d 73 | 67 7d 0d 09 09 22 43 72 |lTrashms|g}..."Cr|
|00001cf0| 65 61 74 65 20 4e 65 77 | 22 09 7b 65 75 64 6f 72 |eate New|".{eudor|
|00001d00| 61 4e 65 77 4d 61 69 6c | 62 6f 78 7d 0d 09 09 22 |aNewMail|box}..."|
|00001d10| 44 65 6c 65 74 65 22 09 | 09 7b 65 75 64 6f 72 61 |Delete".|.{eudora|
|00001d20| 44 65 6c 65 74 65 4d 61 | 69 6c 62 6f 78 7d 0d 09 |DeleteMa|ilbox}..|
|00001d30| 09 64 65 66 61 75 6c 74 | 09 09 09 24 69 74 65 6d |.default|...$item|
|00001d40| 0d 09 7d 0d 7d 0d 0d 69 | 66 20 7b 21 5b 69 6e 66 |..}.}..i|f {![inf|
|00001d50| 6f 20 65 78 69 73 74 73 | 20 6d 61 69 6c 66 6c 75 |o exists| mailflu|
|00001d60| 73 68 4f 6e 43 68 65 63 | 6b 5d 7d 20 7b 73 65 74 |shOnChec|k]} {set|
|00001d70| 20 6d 61 69 6c 66 6c 75 | 73 68 4f 6e 43 68 65 63 | mailflu|shOnChec|
|00001d80| 6b 20 31 7d 0d 69 66 20 | 7b 21 5b 69 6e 66 6f 20 |k 1}.if |{![info |
|00001d90| 65 78 69 73 74 73 20 6d | 61 69 6c 61 6c 65 72 74 |exists m|ailalert|
|00001da0| 4f 6e 49 6e 63 6f 6d 69 | 6e 67 5d 7d 20 7b 73 65 |OnIncomi|ng]} {se|
|00001db0| 74 20 6d 61 69 6c 61 6c | 65 72 74 4f 6e 49 6e 63 |t mailal|ertOnInc|
|00001dc0| 6f 6d 69 6e 67 20 31 7d | 0d 69 66 20 7b 21 5b 69 |oming 1}|.if {![i|
|00001dd0| 6e 66 6f 20 65 78 69 73 | 74 73 20 6d 61 69 6c 69 |nfo exis|ts maili|
|00001de0| 6d 6d 65 64 69 61 74 65 | 53 65 6e 64 5d 7d 20 7b |mmediate|Send]} {|
|00001df0| 73 65 74 20 6d 61 69 6c | 69 6d 6d 65 64 69 61 74 |set mail|immediat|
|00001e00| 65 53 65 6e 64 20 30 7d | 0d 6d 61 72 6b 4d 65 6e |eSend 0}|.markMen|
|00001e10| 75 49 74 65 6d 20 6d 61 | 69 6c 46 6c 61 67 73 20 |uItem ma|ilFlags |
|00001e20| 66 6c 75 73 68 4f 6e 43 | 68 65 63 6b 20 24 6d 61 |flushOnC|heck $ma|
|00001e30| 69 6c 66 6c 75 73 68 4f | 6e 43 68 65 63 6b 0d 6d |ilflushO|nCheck.m|
|00001e40| 61 72 6b 4d 65 6e 75 49 | 74 65 6d 20 6d 61 69 6c |arkMenuI|tem mail|
|00001e50| 46 6c 61 67 73 20 61 6c | 65 72 74 4f 6e 49 6e 63 |Flags al|ertOnInc|
|00001e60| 6f 6d 69 6e 67 20 24 6d | 61 69 6c 61 6c 65 72 74 |oming $m|ailalert|
|00001e70| 4f 6e 49 6e 63 6f 6d 69 | 6e 67 0d 6d 61 72 6b 4d |OnIncomi|ng.markM|
|00001e80| 65 6e 75 49 74 65 6d 20 | 6d 61 69 6c 46 6c 61 67 |enuItem |mailFlag|
|00001e90| 73 20 69 6d 6d 65 64 69 | 61 74 65 53 65 6e 64 20 |s immedi|ateSend |
|00001ea0| 24 6d 61 69 6c 69 6d 6d | 65 64 69 61 74 65 53 65 |$mailimm|ediateSe|
|00001eb0| 6e 64 0d 0d 0d 70 72 6f | 63 20 6d 61 69 6c 46 6c |nd...pro|c mailFl|
|00001ec0| 61 67 73 50 72 6f 63 20 | 7b 6d 65 6e 75 20 66 6c |agsProc |{menu fl|
|00001ed0| 61 67 7d 20 7b 0d 09 67 | 6c 6f 62 61 6c 20 6d 61 |ag} {..g|lobal ma|
|00001ee0| 69 6c 24 66 6c 61 67 20 | 6d 6f 64 69 66 69 65 64 |il$flag |modified|
|00001ef0| 56 61 72 73 20 74 72 61 | 73 68 4e 61 6d 65 0d 0d |Vars tra|shName..|
|00001f00| 09 69 66 20 7b 24 66 6c | 61 67 20 3d 3d 20 22 74 |.if {$fl|ag == "t|
|00001f10| 72 61 73 68 4e 61 6d 65 | 22 7d 20 7b 0d 09 09 73 |rashName|"} {...s|
|00001f20| 65 74 20 74 72 61 73 68 | 4e 61 6d 65 20 5b 70 72 |et trash|Name [pr|
|00001f30| 6f 6d 70 74 20 22 54 72 | 61 73 68 20 66 6f 6c 64 |ompt "Tr|ash fold|
|00001f40| 65 72 20 6e 61 6d 65 3a | 22 20 24 74 72 61 73 68 |er name:|" $trash|
|00001f50| 4e 61 6d 65 5d 0d 09 09 | 6c 61 70 70 65 6e 64 20 |Name]...|lappend |
|00001f60| 6d 6f 64 69 66 69 65 64 | 56 61 72 73 20 74 72 61 |modified|Vars tra|
|00001f70| 73 68 4e 61 6d 65 0d 09 | 09 72 65 74 75 72 6e 0d |shName..|.return.|
|00001f80| 09 7d 0d 09 0d 0d 09 73 | 65 74 20 6d 61 69 6c 24 |.}.....s|et mail$|
|00001f90| 66 6c 61 67 20 5b 65 78 | 70 72 20 31 20 2d 20 5b |flag [ex|pr 1 - [|
|00001fa0| 73 65 74 20 6d 61 69 6c | 24 66 6c 61 67 5d 5d 0d |set mail|$flag]].|
|00001fb0| 09 6c 61 70 70 65 6e 64 | 20 6d 6f 64 69 66 69 65 |.lappend| modifie|
|00001fc0| 64 56 61 72 73 20 6d 61 | 69 6c 24 66 6c 61 67 0d |dVars ma|il$flag.|
|00001fd0| 09 6d 61 72 6b 4d 65 6e | 75 49 74 65 6d 20 6d 61 |.markMen|uItem ma|
|00001fe0| 69 6c 46 6c 61 67 73 20 | 24 66 6c 61 67 20 5b 73 |ilFlags |$flag [s|
|00001ff0| 65 74 20 6d 61 69 6c 24 | 66 6c 61 67 5d 0d 7d 0d |et mail$|flag].}.|
|00002000| 0d 0d 70 72 6f 63 20 6d | 61 69 6c 42 6f 78 50 72 |..proc m|ailBoxPr|
|00002010| 6f 63 20 7b 6d 65 6e 75 | 20 69 74 65 6d 7d 20 7b |oc {menu| item} {|
|00002020| 0d 09 67 6c 6f 62 61 6c | 20 69 6e 62 6f 78 4d 65 |..global| inboxMe|
|00002030| 6d 62 65 72 73 20 41 4c | 50 48 41 20 65 75 64 6f |mbers AL|PHA eudo|
|00002040| 72 61 42 6f 78 65 73 20 | 6d 6f 64 69 66 69 65 64 |raBoxes |modified|
|00002050| 56 61 72 73 0d 09 67 6c | 6f 62 61 6c 20 74 69 6c |Vars..gl|obal til|
|00002060| 65 4c 65 66 74 20 74 69 | 6c 65 54 6f 70 20 74 69 |eLeft ti|leTop ti|
|00002070| 6c 65 48 65 69 67 68 74 | 20 65 72 72 6f 72 48 65 |leHeight| errorHe|
|00002080| 69 67 68 74 20 64 65 66 | 57 69 64 74 68 0d 0d 09 |ight def|Width...|
|00002090| 69 66 20 7b 24 69 74 65 | 6d 20 3d 3d 20 22 4f 70 |if {$ite|m == "Op|
|000020a0| 65 6e 20 4d 61 69 6c 62 | 6f 78 22 7d 20 7b 0d 09 |en Mailb|ox"} {..|
|000020b0| 09 72 65 74 75 72 6e 20 | 5b 6f 70 65 6e 4d 61 69 |.return |[openMai|
|000020c0| 6c 62 6f 78 5d 0d 09 7d | 0d 09 0d 09 6b 69 6c 6c |lbox]..}|....kill|
|000020d0| 4d 61 69 6c 62 6f 78 57 | 69 6e 64 6f 77 0d 0d 09 |MailboxW|indow...|
|000020e0| 63 68 65 63 6b 4d 61 69 | 6c 50 61 74 68 0d 09 73 |checkMai|lPath..s|
|000020f0| 77 69 74 63 68 54 6f 20 | 24 41 4c 50 48 41 0d 0d |witchTo |$ALPHA..|
|00002100| 09 67 6c 6f 62 61 6c 20 | 74 72 61 73 68 65 64 4d |.global |trashedM|
|00002110| 73 67 73 24 69 74 65 6d | 0d 09 73 65 74 20 74 72 |sgs$item|..set tr|
|00002120| 61 73 68 65 64 4d 73 67 | 73 24 69 74 65 6d 20 7b |ashedMsg|s$item {|
|00002130| 7d 0d 09 0d 09 73 65 74 | 20 69 6e 62 6f 78 4d 65 |}....set| inboxMe|
|00002140| 6d 62 65 72 73 20 7b 7d | 0d 09 73 65 74 20 74 65 |mbers {}|..set te|
|00002150| 78 74 20 7b 7d 0d 09 73 | 65 74 20 69 6e 64 20 31 |xt {}..s|et ind 1|
|00002160| 0d 09 66 6f 72 65 61 63 | 68 20 6d 73 67 20 5b 6d |..foreac|h msg [m|
|00002170| 61 69 6c 53 65 6e 64 65 | 72 73 20 24 69 74 65 6d |ailSende|rs $item|
|00002180| 5d 20 7b 0d 09 09 73 65 | 74 20 66 72 6f 6d 20 5b |] {...se|t from [|
|00002190| 6d 61 69 6c 41 64 64 72 | 20 5b 6c 69 6e 64 65 78 |mailAddr| [lindex|
|000021a0| 20 24 6d 73 67 20 30 5d | 5d 0d 09 09 73 65 74 20 | $msg 0]|]...set |
|000021b0| 74 61 67 20 7b 7d 0d 09 | 09 77 68 69 6c 65 20 7b |tag {}..|.while {|
|000021c0| 5b 6c 73 65 61 72 63 68 | 20 24 69 6e 62 6f 78 4d |[lsearch| $inboxM|
|000021d0| 65 6d 62 65 72 73 20 24 | 66 72 6f 6d 24 74 61 67 |embers $|from$tag|
|000021e0| 5d 20 3e 3d 20 30 7d 20 | 7b 0d 09 09 09 69 66 20 |] >= 0} |{....if |
|000021f0| 7b 21 5b 73 74 72 69 6e | 67 20 6c 65 6e 67 74 68 |{![strin|g length|
|00002200| 20 24 74 61 67 5d 7d 20 | 7b 0d 09 09 09 09 73 65 | $tag]} |{.....se|
|00002210| 74 20 74 61 67 20 7b 20 | 3c 32 3e 7d 0d 09 09 09 |t tag { |<2>}....|
|00002220| 7d 20 65 6c 73 65 20 7b | 0d 09 09 09 09 72 65 67 |} else {|.....reg|
|00002230| 65 78 70 20 7b 5b 30 2d | 39 5d 2b 7d 20 24 74 61 |exp {[0-|9]+} $ta|
|00002240| 67 20 74 61 67 0d 09 09 | 09 09 73 65 74 20 74 61 |g tag...|..set ta|
|00002250| 67 20 22 20 3c 5b 65 78 | 70 72 20 24 74 61 67 20 |g " <[ex|pr $tag |
|00002260| 2b 20 31 5d 3e 22 0d 09 | 09 09 7d 0d 09 09 7d 0d |+ 1]>"..|..}...}.|
|00002270| 09 09 61 70 70 65 6e 64 | 20 74 65 78 74 20 5b 66 |..append| text [f|
|00002280| 6f 72 6d 61 74 20 22 25 | 2d 34 30 73 20 3a 20 25 |ormat "%|-40s : %|
|00002290| 73 5c 74 5c 74 5c 74 5c | 74 5c 74 5c 74 5c 74 5c |s\t\t\t\|t\t\t\t\|
|000022a0| 74 5c 74 5c 74 5c 74 5c | 74 5c 74 5c 74 5c 74 5c |t\t\t\t\|t\t\t\t\|
|000022b0| 74 5c 74 5c 74 5c 74 5c | 74 5c 74 5c 74 5c 74 b0 |t\t\t\t\|t\t\t\t.|
|000022c0| 24 69 74 65 6d b0 24 69 | 6e 64 5c 72 22 20 22 24 |$item.$i|nd\r" "$|
|000022d0| 66 72 6f 6d 24 74 61 67 | 22 20 5b 6c 69 6e 64 65 |from$tag|" [linde|
|000022e0| 78 20 24 6d 73 67 20 31 | 5d 5d 0d 09 09 6c 61 70 |x $msg 1|]]...lap|
|000022f0| 70 65 6e 64 20 69 6e 62 | 6f 78 4d 65 6d 62 65 72 |pend inb|oxMember|
|00002300| 73 20 24 66 72 6f 6d 24 | 74 61 67 0d 09 09 69 6e |s $from$|tag...in|
|00002310| 63 72 20 69 6e 64 0d 09 | 7d 0d 09 69 66 20 7b 21 |cr ind..|}..if {!|
|00002320| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 24 |[string |length $|
|00002330| 74 65 78 74 5d 7d 20 7b | 0d 09 09 61 6c 65 72 74 |text]} {|...alert|
|00002340| 6e 6f 74 65 20 22 4e 6f | 20 6d 65 73 73 61 67 65 |note "No| message|
|00002350| 73 20 69 6e 20 27 24 69 | 74 65 6d 27 21 22 0d 09 |s in '$i|tem'!"..|
|00002360| 09 72 65 74 75 72 6e 0d | 09 7d 0d 09 0d 09 6e 65 |.return.|.}....ne|
|00002370| 77 20 2d 6e 20 22 2a 20 | 4d 41 49 4c 42 4f 58 20 |w -n "* |MAILBOX |
|00002380| 27 24 69 74 65 6d 27 20 | 2a 22 20 2d 67 20 24 74 |'$item' |*" -g $t|
|00002390| 69 6c 65 4c 65 66 74 20 | 24 74 69 6c 65 54 6f 70 |ileLeft |$tileTop|
|000023a0| 20 24 64 65 66 57 69 64 | 74 68 20 24 65 72 72 6f | $defWid|th $erro|
|000023b0| 72 48 65 69 67 68 74 0d | 09 67 6c 6f 62 61 6c 20 |rHeight.|.global |
|000023c0| 77 69 6e 4d 6f 64 65 73 | 0d 09 73 65 74 20 6e 61 |winModes|..set na|
|000023d0| 6d 65 20 5b 6c 69 6e 64 | 65 78 20 5b 77 69 6e 4e |me [lind|ex [winN|
|000023e0| 61 6d 65 73 5d 20 30 5d | 0d 09 63 68 61 6e 67 65 |ames] 0]|..change|
|000023f0| 4d 6f 64 65 20 5b 73 65 | 74 20 77 69 6e 4d 6f 64 |Mode [se|t winMod|
|00002400| 65 73 28 24 6e 61 6d 65 | 29 20 42 72 77 73 5d 0d |es($name|) Brws].|
|00002410| 0d 09 69 6e 73 65 72 74 | 54 65 78 74 20 22 28 3c |..insert|Text "(<|
|00002420| 63 72 3e 20 74 6f 20 67 | 6f 20 74 6f 20 6d 65 73 |cr> to g|o to mes|
|00002430| 73 61 67 65 29 5c 72 2d | 2d 2d 2d 2d 5c 72 24 74 |sage)\r-|----\r$t|
|00002440| 65 78 74 22 0d 09 0d 09 | 73 65 6c 65 63 74 20 5b |ext"....|select [|
|00002450| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 5b 6e |nextLine|Start [n|
|00002460| 65 78 74 4c 69 6e 65 53 | 74 61 72 74 20 30 5d 5d |extLineS|tart 0]]|
|00002470| 20 5b 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 20 | [nextLi|neStart |
|00002480| 5b 6e 65 78 74 4c 69 6e | 65 53 74 61 72 74 20 5b |[nextLin|eStart [|
|00002490| 6e 65 78 74 4c 69 6e 65 | 53 74 61 72 74 20 30 5d |nextLine|Start 0]|
|000024a0| 5d 5d 0d 09 73 65 74 57 | 69 6e 49 6e 66 6f 20 64 |]]..setW|inInfo d|
|000024b0| 69 72 74 79 20 30 0d 09 | 73 65 74 57 69 6e 49 6e |irty 0..|setWinIn|
|000024c0| 66 6f 20 72 65 61 64 2d | 6f 6e 6c 79 20 31 0d 09 |fo read-|only 1..|
|000024d0| 6d 65 73 73 61 67 65 20 | 22 22 0d 7d 0d 0d 70 72 |message |"".}..pr|
|000024e0| 6f 63 20 65 75 64 6f 72 | 61 4e 65 77 4d 61 69 6c |oc eudor|aNewMail|
|000024f0| 62 6f 78 20 7b 7d 20 7b | 0d 7d 0d 0d 0d 70 72 6f |box {} {|.}...pro|
|00002500| 63 20 65 75 64 6f 72 61 | 44 65 6c 65 74 65 4d 61 |c eudora|DeleteMa|
|00002510| 69 6c 62 6f 78 20 7b 7d | 20 7b 0d 7d 0d 0d 0d 70 |ilbox {}| {.}...p|
|00002520| 72 6f 63 20 6b 69 6c 6c | 4d 61 69 6c 62 6f 78 57 |roc kill|MailboxW|
|00002530| 69 6e 64 6f 77 20 7b 7d | 20 7b 0d 09 69 66 20 7b |indow {}| {..if {|
|00002540| 5b 73 65 74 20 69 6e 64 | 20 5b 6c 73 65 61 72 63 |[set ind| [lsearc|
|00002550| 68 20 5b 77 69 6e 4e 61 | 6d 65 73 5d 20 7b 2a 4d |h [winNa|mes] {*M|
|00002560| 41 49 4c 42 4f 58 2a 7d | 5d 5d 20 3e 3d 20 30 7d |AILBOX*}|]] >= 0}|
|00002570| 20 7b 0d 09 09 73 65 74 | 20 77 69 6e 20 5b 6c 69 | {...set| win [li|
|00002580| 6e 64 65 78 20 5b 77 69 | 6e 4e 61 6d 65 73 5d 20 |ndex [wi|nNames] |
|00002590| 24 69 6e 64 5d 0d 09 09 | 62 72 69 6e 67 54 6f 46 |$ind]...|bringToF|
|000025a0| 72 6f 6e 74 20 24 77 69 | 6e 0d 09 09 6b 69 6c 6c |ront $wi|n...kill|
|000025b0| 57 69 6e 64 6f 77 0d 09 | 7d 0d 7d 0d 0d 0d 70 72 |Window..|}.}...pr|
|000025c0| 6f 63 20 6d 61 69 6c 47 | 6f 74 6f 4d 61 74 63 68 |oc mailG|otoMatch|
|000025d0| 20 7b 7d 20 7b 0d 09 69 | 66 20 7b 5b 72 65 67 65 | {} {..i|f {[rege|
|000025e0| 78 70 20 7b b0 28 2e 2b | 29 b0 28 5b 30 2d 39 5d |xp {.(.+|).([0-9]|
|000025f0| 2b 29 7d 20 5b 67 65 74 | 54 65 78 74 20 5b 6c 69 |+)} [get|Text [li|
|00002600| 6e 65 53 74 61 72 74 20 | 5b 67 65 74 50 6f 73 5d |neStart |[getPos]|
|00002610| 5d 20 5b 6e 65 78 74 4c | 69 6e 65 53 74 61 72 74 |] [nextL|ineStart|
|00002620| 20 5b 67 65 74 50 6f 73 | 5d 5d 5d 20 64 75 6d 6d | [getPos|]]] dumm|
|00002630| 79 20 66 6f 6c 64 65 72 | 20 69 6e 64 5d 7d 20 7b |y folder| ind]} {|
|00002640| 0d 09 09 67 6c 6f 62 61 | 6c 20 74 72 61 73 68 65 |...globa|l trashe|
|00002650| 64 4d 73 67 73 24 66 6f | 6c 64 65 72 0d 09 09 0d |dMsgs$fo|lder....|
|00002660| 09 09 73 65 74 20 64 65 | 6c 65 74 65 64 20 30 0d |..set de|leted 0.|
|00002670| 09 09 66 6f 72 20 7b 73 | 65 74 20 69 20 31 7d 20 |..for {s|et i 1} |
|00002680| 7b 24 69 20 3c 20 24 69 | 6e 64 7d 20 7b 69 6e 63 |{$i < $i|nd} {inc|
|00002690| 72 20 69 7d 20 7b 0d 09 | 09 09 69 66 20 7b 5b 6c |r i} {..|..if {[l|
|000026a0| 73 65 61 72 63 68 20 5b | 73 65 74 20 74 72 61 73 |search [|set tras|
|000026b0| 68 65 64 4d 73 67 73 24 | 66 6f 6c 64 65 72 5d 20 |hedMsgs$|folder] |
|000026c0| 24 69 5d 20 3e 3d 20 30 | 7d 20 7b 0d 09 09 09 09 |$i] >= 0|} {.....|
|000026d0| 69 6e 63 72 20 64 65 6c | 65 74 65 64 0d 09 09 09 |incr del|eted....|
|000026e0| 7d 0d 09 09 7d 0d 09 09 | 6d 61 69 6c 4f 70 65 6e |}...}...|mailOpen|
|000026f0| 20 24 66 6f 6c 64 65 72 | 20 5b 65 78 70 72 20 24 | $folder| [expr $|
|00002700| 69 6e 64 20 2d 20 24 64 | 65 6c 65 74 65 64 5d 20 |ind - $d|eleted] |
|00002710| 24 69 6e 64 0d 09 7d 0d | 7d 0d 0d 0d 70 72 6f 63 |$ind..}.|}...proc|
|00002720| 20 6d 61 69 6c 41 64 64 | 72 20 7b 6e 61 6d 65 7d | mailAdd|r {name}|
|00002730| 20 7b 0d 09 69 66 20 7b | 21 5b 72 65 67 65 78 70 | {..if {|![regexp|
|00002740| 20 7b 3c 28 2e 2a 29 3e | 7d 20 24 6e 61 6d 65 20 | {<(.*)>|} $name |
|00002750| 64 75 6d 6d 79 20 61 64 | 64 72 5d 7d 20 7b 0d 09 |dummy ad|dr]} {..|
|00002760| 09 72 65 67 65 78 70 20 | 7b 5e 5b 5e 20 5d 2b 7d |.regexp |{^[^ ]+}|
|00002770| 20 24 6e 61 6d 65 20 61 | 64 64 72 0d 09 7d 0d 09 | $name a|ddr..}..|
|00002780| 72 65 74 75 72 6e 20 24 | 61 64 64 72 0d 7d 0d 0d |return $|addr.}..|
|00002790| 0d 70 72 6f 63 20 6d 61 | 69 6c 53 65 6e 64 65 72 |.proc ma|ilSender|
|000027a0| 73 20 7b 66 6f 6c 64 65 | 72 7d 20 7b 0d 09 73 65 |s {folde|r} {..se|
|000027b0| 74 20 63 6e 74 20 5b 6d | 61 69 6c 43 6f 75 6e 74 |t cnt [m|ailCount|
|000027c0| 4d 73 67 73 20 24 66 6f | 6c 64 65 72 5d 0d 09 73 |Msgs $fo|lder]..s|
|000027d0| 65 74 20 6d 73 67 73 20 | 7b 7d 0d 09 66 6f 72 20 |et msgs |{}..for |
|000027e0| 7b 73 65 74 20 69 20 31 | 7d 20 7b 24 69 20 3c 3d |{set i 1|} {$i <=|
|000027f0| 20 24 63 6e 74 7d 20 7b | 69 6e 63 72 20 69 7d 20 | $cnt} {|incr i} |
|00002800| 7b 0d 09 09 73 65 74 20 | 73 75 62 6a 65 63 74 20 |{...set |subject |
|00002810| 7b 7d 0d 09 09 69 66 20 | 7b 21 5b 72 65 67 65 78 |{}...if |{![regex|
|00002820| 70 20 2d 6e 6f 63 61 73 | 65 20 7b 46 72 6f 6d 3a |p -nocas|e {From:|
|00002830| 20 28 2e 2a 29 7d 20 5b | 6d 61 69 6c 47 65 74 46 | (.*)} [|mailGetF|
|00002840| 69 65 6c 64 20 66 72 6f | 6d 20 24 66 6f 6c 64 65 |ield fro|m $folde|
|00002850| 72 20 24 69 5d 20 64 75 | 6d 6d 79 20 66 72 6f 6d |r $i] du|mmy from|
|00002860| 5d 7d 20 7b 0d 09 09 09 | 65 72 72 6f 72 20 22 4e |]} {....|error "N|
|00002870| 6f 20 66 72 6f 6d 20 66 | 69 65 6c 64 21 22 0d 09 |o from f|ield!"..|
|00002880| 09 7d 0d 09 09 72 65 67 | 65 78 70 20 7b 53 75 62 |.}...reg|exp {Sub|
|00002890| 6a 65 63 74 3a 20 28 2e | 2a 29 7d 20 5b 6d 61 69 |ject: (.|*)} [mai|
|000028a0| 6c 47 65 74 46 69 65 6c | 64 20 73 75 62 6a 65 63 |lGetFiel|d subjec|
|000028b0| 74 20 24 66 6f 6c 64 65 | 72 20 24 69 5d 20 64 75 |t $folde|r $i] du|
|000028c0| 6d 6d 79 20 73 75 62 6a | 65 63 74 0d 09 09 6c 61 |mmy subj|ect...la|
|000028d0| 70 70 65 6e 64 20 6d 73 | 67 73 20 5b 6c 69 73 74 |ppend ms|gs [list|
|000028e0| 20 24 66 72 6f 6d 20 24 | 73 75 62 6a 65 63 74 5d | $from $|subject]|
|000028f0| 0d 09 7d 0d 09 72 65 74 | 75 72 6e 20 24 6d 73 67 |..}..ret|urn $msg|
|00002900| 73 0d 7d 09 0d 0d 0d 70 | 72 6f 63 20 65 75 64 6f |s.}....p|roc eudo|
|00002910| 72 61 43 63 20 7b 7d 20 | 7b 0d 09 69 66 20 7b 21 |raCc {} |{..if {!|
|00002920| 5b 63 61 74 63 68 20 7b | 73 65 74 20 72 65 73 20 |[catch {|set res |
|00002930| 5b 73 65 61 72 63 68 20 | 2d 73 20 2d 66 20 31 20 |[search |-s -f 1 |
|00002940| 2d 72 20 31 20 2d 69 20 | 31 20 7b 63 63 3a 2e 2a |-r 1 -i |1 {cc:.*|
|00002950| 7d 20 30 5d 7d 5d 7d 20 | 7b 0d 09 09 67 6f 74 6f |} 0]}]} |{...goto|
|00002960| 20 5b 6c 69 6e 64 65 78 | 20 24 72 65 73 20 30 5d | [lindex| $res 0]|
|00002970| 0d 09 09 65 6e 64 4f 66 | 4c 69 6e 65 0d 09 7d 20 |...endOf|Line..} |
|00002980| 65 6c 73 65 20 7b 0d 09 | 09 62 65 67 69 6e 6e 69 |else {..|.beginni|
|00002990| 6e 67 4f 66 42 75 66 66 | 65 72 0d 09 09 6e 65 78 |ngOfBuff|er...nex|
|000029a0| 74 4c 69 6e 65 0d 09 09 | 69 6e 73 65 72 74 54 65 |tLine...|insertTe|
|000029b0| 78 74 20 22 43 63 3a 20 | 5c 72 22 0d 09 09 62 61 |xt "Cc: |\r"...ba|
|000029c0| 63 6b 77 61 72 64 43 68 | 61 72 0d 09 7d 0d 7d 0d |ckwardCh|ar..}.}.|
|000029d0| 0d 0d 70 72 6f 63 20 65 | 75 64 6f 72 61 42 63 63 |..proc e|udoraBcc|
|000029e0| 20 7b 7d 20 7b 0d 09 69 | 66 20 7b 21 5b 63 61 74 | {} {..i|f {![cat|
|000029f0| 63 68 20 7b 73 65 74 20 | 72 65 73 20 5b 73 65 61 |ch {set |res [sea|
|00002a00| 72 63 68 20 2d 73 20 2d | 66 20 31 20 2d 72 20 31 |rch -s -|f 1 -r 1|
|00002a10| 20 2d 69 20 31 20 7b 62 | 63 63 3a 2e 2a 7d 20 30 | -i 1 {b|cc:.*} 0|
|00002a20| 5d 7d 5d 7d 20 7b 0d 09 | 09 67 6f 74 6f 20 5b 6c |]}]} {..|.goto [l|
|00002a30| 69 6e 64 65 78 20 24 72 | 65 73 20 30 5d 0d 09 09 |index $r|es 0]...|
|00002a40| 65 6e 64 4f 66 4c 69 6e | 65 0d 09 7d 20 65 6c 73 |endOfLin|e..} els|
|00002a50| 65 20 7b 0d 09 09 62 65 | 67 69 6e 6e 69 6e 67 4f |e {...be|ginningO|
|00002a60| 66 42 75 66 66 65 72 0d | 09 09 6e 65 78 74 4c 69 |fBuffer.|..nextLi|
|00002a70| 6e 65 0d 09 09 69 6e 73 | 65 72 74 54 65 78 74 20 |ne...ins|ertText |
|00002a80| 22 42 63 63 3a 20 5c 72 | 22 0d 09 09 62 61 63 6b |"Bcc: \r|"...back|
|00002a90| 77 61 72 64 43 68 61 72 | 0d 09 7d 0d 7d 0d 0d 0d |wardChar|..}.}...|
|00002aa0| 70 72 6f 63 20 6d 61 69 | 6c 46 6c 75 73 68 4f 75 |proc mai|lFlushOu|
|00002ab0| 74 20 7b 7d 20 7b 0d 09 | 67 6c 6f 62 61 6c 20 4d |t {} {..|global M|
|00002ac0| 61 69 6c 6d 6f 64 65 56 | 61 72 73 0d 09 6d 65 73 |ailmodeV|ars..mes|
|00002ad0| 73 61 67 65 20 22 54 65 | 6c 6c 69 6e 67 20 45 75 |sage "Te|lling Eu|
|00002ae0| 64 6f 72 61 20 74 6f 20 | 66 6c 75 73 68 20 6d 65 |dora to |flush me|
|00002af0| 73 73 61 67 65 73 c9 22 | 0d 0d 09 41 45 42 75 69 |ssages."|...AEBui|
|00002b00| 6c 64 20 27 43 53 4f 6d | 27 20 43 53 4f 6d 20 65 |ld 'CSOm|' CSOm e|
|00002b10| 43 6f 6e 20 65 53 65 6e | 20 62 6f 6f 6c 28 c7 30 |Con eSen| bool(.0|
|00002b20| 31 c8 29 20 65 43 68 6b | 20 62 6f 6f 6c 28 c7 30 |1.) eChk| bool(.0|
|00002b30| 30 c8 29 0d 09 6d 65 73 | 73 61 67 65 20 22 22 0d |0.)..mes|sage "".|
|00002b40| 7d 0d 0d 0d 70 72 6f 63 | 20 6d 61 69 6c 43 68 65 |}...proc| mailChe|
|00002b50| 63 6b 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |ck {} {.|.global |
|00002b60| 4d 61 69 6c 6d 6f 64 65 | 56 61 72 73 20 6d 61 69 |Mailmode|Vars mai|
|00002b70| 6c 66 6c 75 73 68 4f 6e | 43 68 65 63 6b 0d 09 6d |lflushOn|Check..m|
|00002b80| 65 73 73 61 67 65 20 22 | 54 6f 6c 64 20 45 75 64 |essage "|Told Eud|
|00002b90| 6f 72 61 20 74 6f 20 63 | 68 65 63 6b 20 66 6f 72 |ora to c|heck for|
|00002ba0| 20 6e 65 77 20 6d 61 69 | 6c c9 22 0d 0d 09 41 45 | new mai|l."...AE|
|00002bb0| 42 75 69 6c 64 20 27 43 | 53 4f 6d 27 20 43 53 4f |Build 'C|SOm' CSO|
|00002bc0| 6d 20 65 43 6f 6e 20 65 | 53 65 6e 20 62 6f 6f 6c |m eCon e|Sen bool|
|00002bd0| 28 c7 30 24 6d 61 69 6c | 66 6c 75 73 68 4f 6e 43 |(.0$mail|flushOnC|
|00002be0| 68 65 63 6b c8 29 20 65 | 43 68 6b 20 62 6f 6f 6c |heck.) e|Chk bool|
|00002bf0| 28 c7 30 31 c8 29 0d 7d | 0d 0d 0d 70 72 6f 63 20 |(.01.).}|...proc |
|00002c00| 6d 61 69 6c 52 65 70 6c | 79 6d 73 67 20 7b 7d 20 |mailRepl|ymsg {} |
|00002c10| 7b 0d 09 67 6c 6f 62 61 | 6c 20 69 6e 62 6f 78 4d |{..globa|l inboxM|
|00002c20| 65 6d 62 65 72 73 0d 0d | 09 73 65 74 20 70 72 65 |embers..|.set pre|
|00002c30| 66 69 78 20 22 3e 20 22 | 0d 09 73 65 74 20 72 65 |fix "> "|..set re|
|00002c40| 73 20 5b 73 65 61 72 63 | 68 20 2d 73 20 2d 66 20 |s [searc|h -s -f |
|00002c50| 31 20 2d 72 20 31 20 7b | 5e 3e 3d 3d 7d 20 30 5d |1 -r 1 {|^>==} 0]|
|00002c60| 0d 09 73 65 74 20 68 65 | 61 64 65 72 20 5b 67 65 |..set he|ader [ge|
|00002c70| 74 54 65 78 74 20 30 20 | 5b 6c 69 6e 64 65 78 20 |tText 0 |[lindex |
|00002c80| 24 72 65 73 20 30 5d 5d | 0d 09 0d 09 73 65 74 20 |$res 0]]|....set |
|00002c90| 66 72 6f 6d 20 5b 6d 61 | 69 6c 47 65 74 46 72 6f |from [ma|ilGetFro|
|00002ca0| 6d 5d 0d 09 69 66 20 7b | 21 5b 72 65 67 65 78 70 |m]..if {|![regexp|
|00002cb0| 20 7b 53 75 62 6a 65 63 | 74 3a 20 28 5b 5e 5c 72 | {Subjec|t: ([^\r|
|00002cc0| 5d 2a 29 7d 20 24 68 65 | 61 64 65 72 20 64 75 6d |]*)} $he|ader dum|
|00002cd0| 6d 79 20 73 75 62 6a 65 | 63 74 5d 7d 20 7b 73 65 |my subje|ct]} {se|
|00002ce0| 74 20 73 75 62 6a 65 63 | 74 20 22 22 7d 0d 09 73 |t subjec|t ""}..s|
|00002cf0| 65 74 20 62 6f 64 79 20 | 5b 67 65 74 54 65 78 74 |et body |[getText|
|00002d00| 20 5b 65 78 70 72 20 5b | 6c 69 6e 64 65 78 20 24 | [expr [|lindex $|
|00002d10| 72 65 73 20 31 5d 20 2b | 20 31 5d 20 5b 6d 61 78 |res 1] +| 1] [max|
|00002d20| 50 6f 73 5d 5d 0d 0d 09 | 72 65 67 73 75 62 20 2d |Pos]]...|regsub -|
|00002d30| 61 6c 6c 20 22 5c 72 22 | 20 24 62 6f 64 79 20 22 |all "\r"| $body "|
|00002d40| 5c 72 24 70 72 65 66 69 | 78 22 20 62 6f 64 79 0d |\r$prefi|x" body.|
|00002d50| 09 6d 61 69 6c 4e 65 77 | 4d 73 67 20 24 66 72 6f |.mailNew|Msg $fro|
|00002d60| 6d 20 22 52 65 3a 20 24 | 73 75 62 6a 65 63 74 22 |m "Re: $|subject"|
|00002d70| 20 22 5c 72 24 70 72 65 | 66 69 78 24 62 6f 64 79 | "\r$pre|fix$body|
|00002d80| 5c 72 22 0d 7d 0d 0d 70 | 72 6f 63 20 74 72 61 6e |\r".}..p|roc tran|
|00002d90| 73 66 65 72 50 72 6f 63 | 20 7b 6d 65 6e 75 20 69 |sferProc| {menu i|
|00002da0| 74 65 6d 7d 20 7b 0d 09 | 69 66 20 7b 24 69 74 65 |tem} {..|if {$ite|
|00002db0| 6d 20 3d 3d 20 22 4d 6f | 76 65 20 54 6f 20 54 72 |m == "Mo|ve To Tr|
|00002dc0| 61 73 68 22 7d 20 7b 0d | 09 09 6d 61 69 6c 54 72 |ash"} {.|..mailTr|
|00002dd0| 61 73 68 6d 73 67 0d 09 | 7d 20 65 6c 73 65 69 66 |ashmsg..|} elseif|
|00002de0| 20 7b 24 69 74 65 6d 20 | 3d 3d 20 22 4d 6f 76 65 | {$item |== "Move|
|00002df0| 20 54 6f 20 4d 61 69 6c | 62 6f 78 22 7d 20 7b 0d | To Mail|box"} {.|
|00002e00| 09 09 6d 6f 76 65 54 6f | 4d 61 69 6c 62 6f 78 0d |..moveTo|Mailbox.|
|00002e10| 09 7d 20 65 6c 73 65 20 | 7b 0d 09 09 64 6f 46 6f |.} else |{...doFo|
|00002e20| 6c 64 65 72 4d 6f 76 65 | 20 24 69 74 65 6d 0d 09 |lderMove| $item..|
|00002e30| 7d 0d 7d 0d 0d 0d 70 72 | 6f 63 20 6d 61 69 6c 54 |}.}...pr|oc mailT|
|00002e40| 72 61 73 68 6d 73 67 20 | 7b 7d 20 7b 0d 09 67 6c |rashmsg |{} {..gl|
|00002e50| 6f 62 61 6c 20 74 72 61 | 73 68 4e 61 6d 65 0d 09 |obal tra|shName..|
|00002e60| 64 6f 46 6f 6c 64 65 72 | 4d 6f 76 65 20 24 74 72 |doFolder|Move $tr|
|00002e70| 61 73 68 4e 61 6d 65 0d | 7d 0d 0d 70 72 6f 63 20 |ashName.|}..proc |
|00002e80| 64 6f 46 6f 6c 64 65 72 | 4d 6f 76 65 20 7b 74 6f |doFolder|Move {to|
|00002e90| 46 6f 6c 64 65 72 7d 20 | 7b 0d 09 23 20 49 73 20 |Folder} |{..# Is |
|00002ea0| 74 68 69 73 20 61 20 73 | 75 6d 6d 61 72 79 20 6f |this a s|ummary o|
|00002eb0| 72 20 6d 73 67 20 77 69 | 6e 64 6f 77 3f 0d 09 69 |r msg wi|ndow?..i|
|00002ec0| 66 20 7b 5b 72 65 67 65 | 78 70 20 22 4d 41 49 4c |f {[rege|xp "MAIL|
|00002ed0| 42 4f 58 22 20 5b 6c 69 | 6e 64 65 78 20 5b 77 69 |BOX" [li|ndex [wi|
|00002ee0| 6e 4e 61 6d 65 73 5d 20 | 30 5d 5d 7d 20 7b 0d 09 |nNames] |0]]} {..|
|00002ef0| 09 69 66 20 7b 21 5b 72 | 65 67 65 78 70 20 7b b0 |.if {![r|egexp {.|
|00002f00| 28 2e 2a 29 b0 28 5b 30 | 2d 39 5d 2b 29 7d 20 5b |(.*).([0|-9]+)} [|
|00002f10| 67 65 74 54 65 78 74 20 | 5b 67 65 74 50 6f 73 5d |getText |[getPos]|
|00002f20| 20 5b 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 20 | [nextLi|neStart |
|00002f30| 5b 67 65 74 50 6f 73 5d | 5d 5d 20 64 75 6d 6d 79 |[getPos]|]] dummy|
|00002f40| 20 66 6f 6c 64 65 72 20 | 6f 72 69 67 5d 7d 20 7b | folder |orig]} {|
|00002f50| 0d 09 09 09 62 65 65 70 | 0d 09 09 09 72 65 74 75 |....beep|....retu|
|00002f60| 72 6e 0d 09 09 7d 0d 09 | 09 69 66 20 7b 24 74 6f |rn...}..|.if {$to|
|00002f70| 46 6f 6c 64 65 72 20 3d | 3d 20 24 66 6f 6c 64 65 |Folder =|= $folde|
|00002f80| 72 7d 20 72 65 74 75 72 | 6e 0d 09 09 67 6c 6f 62 |r} retur|n...glob|
|00002f90| 61 6c 20 74 72 61 73 68 | 65 64 4d 73 67 73 24 66 |al trash|edMsgs$f|
|00002fa0| 6f 6c 64 65 72 0d 0d 09 | 09 73 65 74 20 64 65 6c |older...|.set del|
|00002fb0| 65 74 65 64 20 30 0d 09 | 09 66 6f 72 20 7b 73 65 |eted 0..|.for {se|
|00002fc0| 74 20 69 20 31 7d 20 7b | 24 69 20 3c 20 24 6f 72 |t i 1} {|$i < $or|
|00002fd0| 69 67 7d 20 7b 69 6e 63 | 72 20 69 7d 20 7b 0d 09 |ig} {inc|r i} {..|
|00002fe0| 09 09 69 66 20 7b 5b 6c | 73 65 61 72 63 68 20 5b |..if {[l|search [|
|00002ff0| 73 65 74 20 74 72 61 73 | 68 65 64 4d 73 67 73 24 |set tras|hedMsgs$|
|00003000| 66 6f 6c 64 65 72 5d 20 | 24 69 5d 20 3e 3d 20 30 |folder] |$i] >= 0|
|00003010| 7d 20 7b 0d 09 09 09 09 | 69 6e 63 72 20 64 65 6c |} {.....|incr del|
|00003020| 65 74 65 64 0d 09 09 09 | 7d 0d 09 09 7d 0d 09 09 |eted....|}...}...|
|00003030| 73 65 74 20 6e 75 6d 62 | 65 72 20 5b 65 78 70 72 |set numb|er [expr|
|00003040| 20 24 6f 72 69 67 20 2d | 20 24 64 65 6c 65 74 65 | $orig -| $delete|
|00003050| 64 5d 0d 09 09 73 65 74 | 20 73 75 6d 6d 61 72 79 |d]...set| summary|
|00003060| 20 31 0d 09 7d 20 65 6c | 73 65 20 7b 0d 09 09 73 | 1..} el|se {...s|
|00003070| 65 74 20 70 6f 73 20 5b | 6c 69 6e 64 65 78 20 5b |et pos [|lindex [|
|00003080| 73 65 61 72 63 68 20 2d | 66 20 31 20 2d 72 20 31 |search -|f 1 -r 1|
|00003090| 20 7b 5e 4d 73 67 7d 20 | 30 5d 20 30 5d 0d 09 09 | {^Msg} |0] 0]...|
|000030a0| 73 65 74 20 74 65 78 74 | 20 5b 67 65 74 54 65 78 |set text| [getTex|
|000030b0| 74 20 24 70 6f 73 20 5b | 6e 65 78 74 4c 69 6e 65 |t $pos [|nextLine|
|000030c0| 53 74 61 72 74 20 24 70 | 6f 73 5d 5d 0d 09 09 72 |Start $p|os]]...r|
|000030d0| 65 67 65 78 70 20 7b 22 | 28 5b 5e 22 5d 2b 29 22 |egexp {"|([^"]+)"|
|000030e0| 20 5c 28 28 5b 30 2d 39 | 5d 2b 29 5c 29 2e 2a 22 | \(([0-9|]+)\).*"|
|000030f0| 28 5b 5e 22 5d 2b 29 22 | 7d 20 24 74 65 78 74 20 |([^"]+)"|} $text |
|00003100| 64 75 6d 6d 79 20 6e 75 | 6d 62 65 72 20 6f 72 69 |dummy nu|mber ori|
|00003110| 67 20 66 6f 6c 64 65 72 | 0d 09 09 69 66 20 7b 24 |g folder|...if {$|
|00003120| 74 6f 46 6f 6c 64 65 72 | 20 3d 3d 20 24 66 6f 6c |toFolder| == $fol|
|00003130| 64 65 72 7d 20 72 65 74 | 75 72 6e 0d 09 09 73 65 |der} ret|urn...se|
|00003140| 74 20 73 75 6d 6d 61 72 | 79 20 30 0d 0d 09 09 67 |t summar|y 0....g|
|00003150| 6c 6f 62 61 6c 20 74 72 | 61 73 68 65 64 4d 73 67 |lobal tr|ashedMsg|
|00003160| 73 24 66 6f 6c 64 65 72 | 0d 09 7d 0d 09 0d 09 6d |s$folder|..}....m|
|00003170| 65 73 73 61 67 65 20 22 | 4d 6f 76 69 6e 67 20 6d |essage "|Moving m|
|00003180| 73 67 20 24 6e 75 6d 62 | 65 72 20 28 24 6f 72 69 |sg $numb|er ($ori|
|00003190| 67 29 20 6f 66 20 66 6f | 6c 64 65 72 20 27 24 66 |g) of fo|lder '$f|
|000031a0| 6f 6c 64 65 72 27 20 74 | 6f 20 27 24 74 6f 46 6f |older' t|o '$toFo|
|000031b0| 6c 64 65 72 27 22 0d 09 | 6d 6f 76 65 4d 73 67 20 |lder'"..|moveMsg |
|000031c0| 24 6e 75 6d 62 65 72 20 | 24 66 6f 6c 64 65 72 20 |$number |$folder |
|000031d0| 24 74 6f 46 6f 6c 64 65 | 72 0d 09 69 66 20 7b 21 |$toFolde|r..if {!|
|000031e0| 24 73 75 6d 6d 61 72 79 | 7d 20 6b 69 6c 6c 57 69 |$summary|} killWi|
|000031f0| 6e 64 6f 77 0d 0d 09 6c | 61 70 70 65 6e 64 20 74 |ndow...l|append t|
|00003200| 72 61 73 68 65 64 4d 73 | 67 73 24 66 6f 6c 64 65 |rashedMs|gs$folde|
|00003210| 72 20 24 6f 72 69 67 0d | 09 0d 09 23 20 46 69 6e |r $orig.|...# Fin|
|00003220| 64 20 73 75 6d 6d 61 72 | 79 20 69 6e 66 6f 20 61 |d summar|y info a|
|00003230| 6e 64 20 64 65 6c 65 74 | 65 20 69 74 0d 09 73 65 |nd delet|e it..se|
|00003240| 74 20 77 69 6e 20 5b 6c | 69 6e 64 65 78 20 5b 77 |t win [l|index [w|
|00003250| 69 6e 4e 61 6d 65 73 5d | 20 30 5d 0d 09 69 66 20 |inNames]| 0]..if |
|00003260| 7b 5b 72 65 67 65 78 70 | 20 22 4d 41 49 4c 42 4f |{[regexp| "MAILBO|
|00003270| 58 22 20 24 77 69 6e 5d | 7d 20 7b 0d 09 09 73 65 |X" $win]|} {...se|
|00003280| 74 57 69 6e 49 6e 66 6f | 20 72 65 61 64 2d 6f 6e |tWinInfo| read-on|
|00003290| 6c 79 20 30 0d 09 0d 09 | 09 73 65 74 20 69 6e 64 |ly 0....|.set ind|
|000032a0| 73 20 5b 73 65 61 72 63 | 68 20 2d 66 20 31 20 2d |s [searc|h -f 1 -|
|000032b0| 72 20 31 20 22 b0 24 66 | 6f 6c 64 65 72 b0 24 6f |r 1 ".$f|older.$o|
|000032c0| 72 69 67 5c 24 22 20 30 | 5d 0d 09 09 73 65 74 20 |rig\$" 0|]...set |
|000032d0| 70 6f 73 20 5b 6c 69 6e | 64 65 78 20 24 69 6e 64 |pos [lin|dex $ind|
|000032e0| 73 20 30 5d 0d 09 09 64 | 65 6c 65 74 65 54 65 78 |s 0]...d|eleteTex|
|000032f0| 74 20 5b 6c 69 6e 65 53 | 74 61 72 74 20 24 70 6f |t [lineS|tart $po|
|00003300| 73 5d 20 5b 6e 65 78 74 | 4c 69 6e 65 53 74 61 72 |s] [next|LineStar|
|00003310| 74 20 24 70 6f 73 5d 0d | 09 0d 09 09 69 66 20 7b |t $pos].|....if {|
|00003320| 5b 73 74 72 69 6e 67 20 | 6c 65 6e 67 74 68 20 5b |[string |length [|
|00003330| 73 65 61 72 63 68 20 2d | 6e 20 2d 66 20 31 20 2d |search -|n -f 1 -|
|00003340| 72 20 30 20 7b b0 7d 20 | 30 5d 5d 7d 20 7b 0d 09 |r 0 {.} |0]]} {..|
|00003350| 09 09 73 65 74 57 69 6e | 49 6e 66 6f 20 64 69 72 |..setWin|Info dir|
|00003360| 74 79 20 30 0d 09 09 09 | 73 65 74 57 69 6e 49 6e |ty 0....|setWinIn|
|00003370| 66 6f 20 72 65 61 64 2d | 6f 6e 6c 79 20 31 0d 09 |fo read-|only 1..|
|00003380| 0d 09 09 09 6e 65 78 74 | 4c 69 6e 65 0d 09 09 09 |....next|Line....|
|00003390| 75 70 42 72 6f 77 73 65 | 0d 09 09 7d 20 65 6c 73 |upBrowse|...} els|
|000033a0| 65 20 7b 0d 09 09 09 73 | 65 74 57 69 6e 49 6e 66 |e {....s|etWinInf|
|000033b0| 6f 20 64 69 72 74 79 20 | 30 0d 09 09 09 6b 69 6c |o dirty |0....kil|
|000033c0| 6c 57 69 6e 64 6f 77 0d | 09 09 7d 0d 09 7d 0d 7d |lWindow.|..}..}.}|
|000033d0| 0d 0d 09 0d 70 72 6f 63 | 20 6d 61 69 6c 47 65 74 |....proc| mailGet|
|000033e0| 46 72 6f 6d 20 7b 7d 20 | 7b 0d 09 73 65 74 20 72 |From {} |{..set r|
|000033f0| 65 73 20 5b 73 65 61 72 | 63 68 20 2d 73 20 2d 66 |es [sear|ch -s -f|
|00003400| 20 31 20 2d 72 20 31 20 | 7b 3e 3d 3d 7d 20 30 5d | 1 -r 1 |{>==} 0]|
|00003410| 0d 09 73 65 74 20 68 65 | 61 64 65 72 20 5b 67 65 |..set he|ader [ge|
|00003420| 74 54 65 78 74 20 30 20 | 5b 6c 69 6e 64 65 78 20 |tText 0 |[lindex |
|00003430| 24 72 65 73 20 30 5d 5d | 0d 09 69 66 20 7b 5b 72 |$res 0]]|..if {[r|
|00003440| 65 67 65 78 70 20 7b 46 | 72 6f 6d 3a 20 28 5b 5e |egexp {F|rom: ([^|
|00003450| 5c 72 5d 2a 29 7d 20 24 | 68 65 61 64 65 72 20 64 |\r]*)} $|header d|
|00003460| 75 6d 6d 79 20 66 72 6f | 6d 5d 7d 20 7b 0d 09 09 |ummy fro|m]} {...|
|00003470| 72 65 74 75 72 6e 20 5b | 6d 61 69 6c 41 64 64 72 |return [|mailAddr|
|00003480| 20 24 66 72 6f 6d 5d 0d | 09 7d 0d 09 65 72 72 6f | $from].|.}..erro|
|00003490| 72 20 22 4e 6f 20 66 72 | 6f 6d 20 6c 69 6e 65 22 |r "No fr|om line"|
|000034a0| 0d 7d 0d 0d 09 0d 0d 70 | 72 6f 63 20 6d 61 69 6c |.}.....p|roc mail|
|000034b0| 53 65 6e 64 43 72 65 61 | 74 65 64 4d 73 67 20 7b |SendCrea|tedMsg {|
|000034c0| 7d 20 7b 0d 09 67 6c 6f | 62 61 6c 20 4d 61 69 6c |} {..glo|bal Mail|
|000034d0| 6d 6f 64 65 56 61 72 73 | 20 6d 61 69 6c 69 6d 6d |modeVars| mailimm|
|000034e0| 65 64 69 61 74 65 53 65 | 6e 64 0d 09 0d 09 73 65 |ediateSe|nd....se|
|000034f0| 74 20 6e 61 6d 65 20 5b | 63 68 65 63 6b 4d 61 69 |t name [|checkMai|
|00003500| 6c 50 61 74 68 5d 0d 09 | 73 65 74 20 72 65 73 20 |lPath]..|set res |
|00003510| 5b 73 65 61 72 63 68 20 | 2d 73 20 2d 66 20 31 20 |[search |-s -f 1 |
|00003520| 2d 72 20 30 20 7b 3e 3d | 3d 74 65 78 74 20 66 6f |-r 0 {>=|=text fo|
|00003530| 6c 6c 6f 77 73 20 74 68 | 69 73 20 6c 69 6e 65 3d |llows th|is line=|
|00003540| 3d 3c 7d 20 30 5d 0d 09 | 73 65 74 20 68 65 61 64 |=<} 0]..|set head|
|00003550| 65 72 20 5b 67 65 74 54 | 65 78 74 20 30 20 5b 6c |er [getT|ext 0 [l|
|00003560| 69 6e 64 65 78 20 24 72 | 65 73 20 30 5d 5d 0d 09 |index $r|es 0]]..|
|00003570| 0d 09 69 66 20 7b 21 5b | 72 65 67 65 78 70 20 7b |..if {![|regexp {|
|00003580| 54 6f 3a 20 28 5b 5e 5c | 72 5d 2a 29 7d 20 24 68 |To: ([^\|r]*)} $h|
|00003590| 65 61 64 65 72 20 64 75 | 6d 6d 79 20 74 6f 5d 7d |eader du|mmy to]}|
|000035a0| 20 7b 73 65 74 20 74 6f | 20 22 22 7d 0d 09 69 66 | {set to| ""}..if|
|000035b0| 20 7b 21 5b 72 65 67 65 | 78 70 20 7b 43 63 3a 20 | {![rege|xp {Cc: |
|000035c0| 28 5b 5e 5c 72 5d 2a 29 | 7d 20 24 68 65 61 64 65 |([^\r]*)|} $heade|
|000035d0| 72 20 64 75 6d 6d 79 20 | 63 63 5d 7d 20 7b 73 65 |r dummy |cc]} {se|
|000035e0| 74 20 63 63 20 22 22 7d | 0d 09 69 66 20 7b 21 5b |t cc ""}|..if {![|
|000035f0| 72 65 67 65 78 70 20 7b | 53 75 62 6a 65 63 74 3a |regexp {|Subject:|
|00003600| 20 28 5b 5e 5c 72 5d 2a | 29 7d 20 24 68 65 61 64 | ([^\r]*|)} $head|
|00003610| 65 72 20 64 75 6d 6d 79 | 20 73 75 62 6a 65 63 74 |er dummy| subject|
|00003620| 5d 7d 20 7b 73 65 74 20 | 73 75 62 6a 65 63 74 20 |]} {set |subject |
|00003630| 22 22 7d 0d 0d 09 73 65 | 74 20 62 6f 64 79 20 5b |""}...se|t body [|
|00003640| 67 65 74 54 65 78 74 20 | 5b 65 78 70 72 20 5b 6c |getText |[expr [l|
|00003650| 69 6e 64 65 78 20 24 72 | 65 73 20 31 5d 20 2b 20 |index $r|es 1] + |
|00003660| 31 5d 20 5b 6d 61 78 50 | 6f 73 5d 5d 0d 09 0d 09 |1] [maxP|os]]....|
|00003670| 6d 61 69 6c 43 72 65 61 | 74 65 4d 73 67 0d 09 6d |mailCrea|teMsg..m|
|00003680| 61 69 6c 53 65 74 46 69 | 65 6c 64 20 74 6f 20 24 |ailSetFi|eld to $|
|00003690| 74 6f 0d 09 6d 61 69 6c | 53 65 74 46 69 65 6c 64 |to..mail|SetField|
|000036a0| 20 63 63 20 24 63 63 0d | 09 6d 61 69 6c 53 65 74 | cc $cc.|.mailSet|
|000036b0| 46 69 65 6c 64 20 73 75 | 62 6a 65 63 74 20 24 73 |Field su|bject $s|
|000036c0| 75 62 6a 65 63 74 0d 09 | 6d 61 69 6c 53 65 74 46 |ubject..|mailSetF|
|000036d0| 69 65 6c 64 20 22 22 20 | 24 62 6f 64 79 0d 09 0d |ield "" |$body...|
|000036e0| 09 69 66 20 7b 24 4d 61 | 69 6c 6d 6f 64 65 56 61 |.if {$Ma|ilmodeVa|
|000036f0| 72 73 28 74 6f 73 73 4f | 6e 51 75 65 75 65 29 7d |rs(tossO|nQueue)}|
|00003700| 20 7b 0d 09 09 73 65 74 | 57 69 6e 49 6e 66 6f 20 | {...set|WinInfo |
|00003710| 64 69 72 74 79 20 30 0d | 09 09 6b 69 6c 6c 57 69 |dirty 0.|..killWi|
|00003720| 6e 64 6f 77 0d 09 7d 0d | 0d 09 6d 61 69 6c 51 75 |ndow..}.|..mailQu|
|00003730| 65 75 65 4c 61 73 74 0d | 0d 09 69 66 20 7b 24 4d |eueLast.|..if {$M|
|00003740| 61 69 6c 6d 6f 64 65 56 | 61 72 73 28 73 77 69 74 |ailmodeV|ars(swit|
|00003750| 63 68 4f 6e 51 75 65 75 | 65 29 7d 20 7b 0d 09 09 |chOnQueu|e)} {...|
|00003760| 73 77 69 74 63 68 54 6f | 20 24 6e 61 6d 65 0d 09 |switchTo| $name..|
|00003770| 7d 0d 0d 09 69 66 20 7b | 24 6d 61 69 6c 69 6d 6d |}...if {|$mailimm|
|00003780| 65 64 69 61 74 65 53 65 | 6e 64 7d 20 7b 0d 09 09 |ediateSe|nd} {...|
|00003790| 6d 61 69 6c 46 6c 75 73 | 68 4f 75 74 0d 09 7d 20 |mailFlus|hOut..} |
|000037a0| 65 6c 73 65 20 7b 0d 09 | 09 6d 65 73 73 61 67 65 |else {..|.message|
|000037b0| 20 22 4d 65 73 73 61 67 | 65 20 71 75 65 75 65 64 | "Messag|e queued|
|000037c0| c9 22 0d 09 7d 0d 7d 0d | 0d 09 0d 70 72 6f 63 20 |."..}.}.|...proc |
|000037d0| 6d 61 69 6c 4e 65 77 4d | 73 67 20 7b 7b 74 6f 20 |mailNewM|sg {{to |
|000037e0| 22 22 7d 20 7b 73 75 62 | 6a 65 63 74 20 22 22 7d |""} {sub|ject ""}|
|000037f0| 20 7b 62 6f 64 79 20 22 | 22 7d 7d 20 7b 0d 09 6e | {body "|"}} {..n|
|00003800| 65 77 20 2d 6e 20 22 4e | 65 77 20 4d 61 69 6c 22 |ew -n "N|ew Mail"|
|00003810| 0d 09 67 6c 6f 62 61 6c | 20 77 69 6e 4d 6f 64 65 |..global| winMode|
|00003820| 73 0d 09 73 65 74 20 6e | 61 6d 65 20 5b 6c 69 6e |s..set n|ame [lin|
|00003830| 64 65 78 20 5b 77 69 6e | 4e 61 6d 65 73 5d 20 30 |dex [win|Names] 0|
|00003840| 5d 0d 09 63 68 61 6e 67 | 65 4d 6f 64 65 20 5b 73 |]..chang|eMode [s|
|00003850| 65 74 20 77 69 6e 4d 6f | 64 65 73 28 24 6e 61 6d |et winMo|des($nam|
|00003860| 65 29 20 4d 61 69 6c 5d | 0d 0d 09 69 6e 73 65 72 |e) Mail]|...inser|
|00003870| 74 54 65 78 74 20 22 54 | 6f 3a 20 24 74 6f 5c 72 |tText "T|o: $to\r|
|00003880| 53 75 62 6a 65 63 74 3a | 20 24 73 75 62 6a 65 63 |Subject:| $subjec|
|00003890| 74 5c 72 3e 3d 3d 74 65 | 78 74 20 66 6f 6c 6c 6f |t\r>==te|xt follo|
|000038a0| 77 73 20 74 68 69 73 20 | 6c 69 6e 65 3d 3d 3c 5c |ws this |line==<\|
|000038b0| 72 24 62 6f 64 79 22 0d | 09 73 65 74 57 69 6e 49 |r$body".|.setWinI|
|000038c0| 6e 66 6f 20 64 69 72 74 | 79 20 30 0d 09 67 6f 74 |nfo dirt|y 0..got|
|000038d0| 6f 20 30 0d 09 63 65 6e | 74 65 72 52 65 64 72 61 |o 0..cen|terRedra|
|000038e0| 77 0d 09 6d 61 69 6c 54 | 61 62 0d 7d 0d 0d 0d 70 |w..mailT|ab.}...p|
|000038f0| 72 6f 63 20 6d 61 69 6c | 54 61 62 20 7b 7d 20 7b |roc mail|Tab {} {|
|00003900| 0d 09 67 6c 6f 62 61 6c | 20 6d 61 69 6c 4b 65 79 |..global| mailKey|
|00003910| 77 6f 72 64 73 0d 09 69 | 66 20 7b 5b 63 61 74 63 |words..i|f {[catc|
|00003920| 68 20 7b 73 65 61 72 63 | 68 20 2d 73 20 2d 66 20 |h {searc|h -s -f |
|00003930| 31 20 2d 72 20 31 20 2d | 69 20 31 20 22 28 5b 6a |1 -r 1 -|i 1 "([j|
|00003940| 6f 69 6e 20 24 6d 61 69 | 6c 4b 65 79 77 6f 72 64 |oin $mai|lKeyword|
|00003950| 73 20 7b 7c 7d 5d 7c 5e | 3e 29 22 20 5b 67 65 74 |s {|}]|^|>)" [get|
|00003960| 50 6f 73 5d 7d 20 72 65 | 73 5d 7d 20 7b 0d 09 09 |Pos]} re|s]} {...|
|00003970| 69 6e 73 65 72 74 54 65 | 78 74 20 22 5c 74 22 0d |insertTe|xt "\t".|
|00003980| 09 09 72 65 74 75 72 6e | 0d 09 7d 0d 09 69 66 20 |..return|..}..if |
|00003990| 7b 5b 6c 6f 6f 6b 41 74 | 20 5b 6c 69 6e 64 65 78 |{[lookAt| [lindex|
|000039a0| 20 24 72 65 73 20 30 5d | 5d 20 3d 3d 20 22 3e 22 | $res 0]|] == ">"|
|000039b0| 7d 20 7b 0d 09 09 73 65 | 6c 65 63 74 20 5b 6e 65 |} {...se|lect [ne|
|000039c0| 78 74 4c 69 6e 65 53 74 | 61 72 74 20 5b 6c 69 6e |xtLineSt|art [lin|
|000039d0| 64 65 78 20 24 72 65 73 | 20 31 5d 5d 20 5b 6d 61 |dex $res| 1]] [ma|
|000039e0| 78 50 6f 73 5d 0d 09 7d | 20 65 6c 73 65 20 7b 0d |xPos]..}| else {.|
|000039f0| 09 09 67 6f 74 6f 20 5b | 65 78 70 72 20 5b 6c 69 |..goto [|expr [li|
|00003a00| 6e 64 65 78 20 24 72 65 | 73 20 31 5d 20 2b 20 31 |ndex $re|s 1] + 1|
|00003a10| 5d 0d 09 09 65 6e 64 4c | 69 6e 65 53 65 6c 65 63 |]...endL|ineSelec|
|00003a20| 74 0d 09 7d 0d 7d 0d 62 | 69 6e 64 20 27 5c 74 27 |t..}.}.b|ind '\t'|
|00003a30| 20 09 09 09 09 09 09 6d | 61 69 6c 54 61 62 20 4d | ......m|ailTab M|
|00003a40| 61 69 6c 0d 0d 0d 70 72 | 6f 63 20 6d 61 69 6c 4f |ail...pr|oc mailO|
|00003a50| 70 65 6e 20 7b 66 6f 6c | 64 65 72 20 69 20 6f 72 |pen {fol|der i or|
|00003a60| 69 67 69 6e 61 6c 4e 75 | 6d 7d 20 7b 0d 09 67 6c |iginalNu|m} {..gl|
|00003a70| 6f 62 61 6c 20 74 69 6c | 65 4c 65 66 74 20 74 69 |obal til|eLeft ti|
|00003a80| 6c 65 54 6f 70 20 74 69 | 6c 65 48 65 69 67 68 74 |leTop ti|leHeight|
|00003a90| 20 74 72 61 73 68 65 64 | 4d 73 67 73 24 66 6f 6c | trashed|Msgs$fol|
|00003aa0| 64 65 72 20 64 65 66 57 | 69 64 74 68 0d 09 0d 09 |der defW|idth....|
|00003ab0| 73 65 74 20 66 72 6f 6d | 20 5b 6d 61 69 6c 47 65 |set from| [mailGe|
|00003ac0| 74 46 69 65 6c 64 20 46 | 72 6f 6d 20 24 66 6f 6c |tField F|rom $fol|
|00003ad0| 64 65 72 20 24 69 5d 0d | 09 73 65 74 20 74 6f 20 |der $i].|.set to |
|00003ae0| 5b 6d 61 69 6c 47 65 74 | 46 69 65 6c 64 20 54 6f |[mailGet|Field To|
|00003af0| 20 24 66 6f 6c 64 65 72 | 20 24 69 5d 0d 09 73 65 | $folder| $i]..se|
|00003b00| 74 20 73 75 62 6a 65 63 | 74 20 5b 6d 61 69 6c 47 |t subjec|t [mailG|
|00003b10| 65 74 46 69 65 6c 64 20 | 53 75 62 6a 65 63 74 20 |etField |Subject |
|00003b20| 24 66 6f 6c 64 65 72 20 | 24 69 5d 0d 09 73 65 74 |$folder |$i]..set|
|00003b30| 20 73 65 6e 64 65 72 20 | 5b 6d 61 69 6c 47 65 74 | sender |[mailGet|
|00003b40| 46 69 65 6c 64 20 53 65 | 6e 64 65 72 20 24 66 6f |Field Se|nder $fo|
|00003b50| 6c 64 65 72 20 24 69 5d | 0d 09 73 65 74 20 64 61 |lder $i]|..set da|
|00003b60| 74 65 20 5b 6d 61 69 6c | 47 65 74 46 69 65 6c 64 |te [mail|GetField|
|00003b70| 20 44 61 74 65 20 24 66 | 6f 6c 64 65 72 20 24 69 | Date $f|older $i|
|00003b80| 5d 0d 09 73 65 74 20 63 | 63 20 5b 6d 61 69 6c 47 |]..set c|c [mailG|
|00003b90| 65 74 46 69 65 6c 64 20 | 63 63 20 24 66 6f 6c 64 |etField |cc $fold|
|00003ba0| 65 72 20 24 69 5d 0d 09 | 73 65 74 20 63 6f 6e 74 |er $i]..|set cont|
|00003bb0| 65 6e 74 73 20 5b 6d 61 | 69 6c 47 65 74 46 69 65 |ents [ma|ilGetFie|
|00003bc0| 6c 64 20 22 22 20 24 66 | 6f 6c 64 65 72 20 24 69 |ld "" $f|older $i|
|00003bd0| 5d 0d 09 0d 23 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |]...#===|========|
|00003be0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003bf0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c00| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c10| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003c20| 3d 3d 3d 3d 0d 09 67 6c | 6f 62 61 6c 20 74 69 6c |====..gl|obal til|
|00003c30| 65 48 65 69 67 68 74 20 | 74 69 6c 65 54 6f 70 20 |eHeight |tileTop |
|00003c40| 74 69 6c 65 4c 65 66 74 | 20 65 72 72 6f 72 48 65 |tileLeft| errorHe|
|00003c50| 69 67 68 74 20 65 72 72 | 6f 72 44 69 73 70 20 64 |ight err|orDisp d|
|00003c60| 65 66 57 69 64 74 68 0d | 09 73 65 74 20 74 6f 70 |efWidth.|.set top|
|00003c70| 20 24 74 69 6c 65 54 6f | 70 0d 09 73 65 74 20 67 | $tileTo|p..set g|
|00003c80| 65 6f 20 5b 67 65 74 47 | 65 6f 6d 65 74 72 79 5d |eo [getG|eometry]|
|00003c90| 0d 09 69 66 20 7b 28 5b | 6c 69 6e 64 65 78 20 24 |..if {([|lindex $|
|00003ca0| 67 65 6f 20 30 5d 20 21 | 3d 20 24 74 69 6c 65 4c |geo 0] !|= $tileL|
|00003cb0| 65 66 74 29 20 7c 7c 20 | 28 5b 6c 69 6e 64 65 78 |eft) || |([lindex|
|00003cc0| 20 24 67 65 6f 20 31 5d | 20 21 3d 20 24 74 6f 70 | $geo 1]| != $top|
|00003cd0| 29 20 7c 7c 20 28 5b 6c | 69 6e 64 65 78 20 24 67 |) || ([l|index $g|
|00003ce0| 65 6f 20 32 5d 20 21 3d | 20 24 64 65 66 57 69 64 |eo 2] !=| $defWid|
|00003cf0| 74 68 29 20 7c 7c 20 28 | 5b 6c 69 6e 64 65 78 20 |th) || (|[lindex |
|00003d00| 24 67 65 6f 20 33 5d 20 | 21 3d 20 24 65 72 72 6f |$geo 3] |!= $erro|
|00003d10| 72 48 65 69 67 68 74 29 | 20 7d 20 7b 0d 09 09 6d |rHeight)| } {...m|
|00003d20| 6f 76 65 57 69 6e 20 24 | 74 69 6c 65 4c 65 66 74 |oveWin $|tileLeft|
|00003d30| 20 24 74 6f 70 0d 09 09 | 73 69 7a 65 57 69 6e 20 | $top...|sizeWin |
|00003d40| 24 64 65 66 57 69 64 74 | 68 20 24 65 72 72 6f 72 |$defWidt|h $error|
|00003d50| 48 65 69 67 68 74 0d 09 | 7d 0d 09 73 65 74 20 6d |Height..|}..set m|
|00003d60| 61 72 20 32 38 0d 09 69 | 6e 63 72 20 74 6f 70 20 |ar 28..i|ncr top |
|00003d70| 5b 65 78 70 72 20 24 65 | 72 72 6f 72 48 65 69 67 |[expr $e|rrorHeig|
|00003d80| 68 74 20 2b 20 24 6d 61 | 72 5d 0d 23 3d 3d 3d 3d |ht + $ma|r].#====|
|00003d90| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003da0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003db0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003dc0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00003dd0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 0d 09 6e 65 77 |========|===..new|
|00003de0| 20 2d 6e 20 22 4d 41 49 | 4c 22 20 2d 67 20 24 74 | -n "MAI|L" -g $t|
|00003df0| 69 6c 65 4c 65 66 74 20 | 24 74 6f 70 20 24 64 65 |ileLeft |$top $de|
|00003e00| 66 57 69 64 74 68 20 5b | 65 78 70 72 20 24 65 72 |fWidth [|expr $er|
|00003e10| 72 6f 72 44 69 73 70 20 | 2d 20 35 5d 0d 0d 09 67 |rorDisp |- 5]...g|
|00003e20| 6c 6f 62 61 6c 20 77 69 | 6e 4d 6f 64 65 73 0d 09 |lobal wi|nModes..|
|00003e30| 73 65 74 20 6e 61 6d 65 | 20 5b 6c 69 6e 64 65 78 |set name| [lindex|
|00003e40| 20 5b 77 69 6e 4e 61 6d | 65 73 5d 20 30 5d 0d 09 | [winNam|es] 0]..|
|00003e50| 63 68 61 6e 67 65 4d 6f | 64 65 20 5b 73 65 74 20 |changeMo|de [set |
|00003e60| 77 69 6e 4d 6f 64 65 73 | 28 24 6e 61 6d 65 29 20 |winModes|($name) |
|00003e70| 4d 61 69 6c 5d 0d 0d 09 | 73 65 74 20 74 65 78 74 |Mail]...|set text|
|00003e80| 20 7b 7d 0d 09 69 66 20 | 7b 5b 73 74 72 69 6e 67 | {}..if |{[string|
|00003e90| 20 6c 65 6e 67 74 68 20 | 24 73 75 62 6a 65 63 74 | length |$subject|
|00003ea0| 5d 7d 20 7b 61 70 70 65 | 6e 64 20 74 65 78 74 20 |]} {appe|nd text |
|00003eb0| 22 24 73 75 62 6a 65 63 | 74 5c 72 22 7d 0d 09 69 |"$subjec|t\r"}..i|
|00003ec0| 66 20 7b 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |f {[stri|ng lengt|
|00003ed0| 68 20 24 74 6f 5d 7d 20 | 7b 61 70 70 65 6e 64 20 |h $to]} |{append |
|00003ee0| 74 65 78 74 20 22 24 74 | 6f 5c 72 22 7d 0d 09 69 |text "$t|o\r"}..i|
|00003ef0| 66 20 7b 5b 73 74 72 69 | 6e 67 20 6c 65 6e 67 74 |f {[stri|ng lengt|
|00003f00| 68 20 24 66 72 6f 6d 5d | 7d 20 7b 61 70 70 65 6e |h $from]|} {appen|
|00003f10| 64 20 74 65 78 74 20 22 | 24 66 72 6f 6d 5c 72 22 |d text "|$from\r"|
|00003f20| 7d 0d 09 69 66 20 7b 5b | 73 74 72 69 6e 67 20 6c |}..if {[|string l|
|00003f30| 65 6e 67 74 68 20 24 64 | 61 74 65 5d 7d 20 7b 61 |ength $d|ate]} {a|
|00003f40| 70 70 65 6e 64 20 74 65 | 78 74 20 22 24 64 61 74 |ppend te|xt "$dat|
|00003f50| 65 5c 72 22 7d 0d 09 69 | 66 20 7b 5b 73 74 72 69 |e\r"}..i|f {[stri|
|00003f60| 6e 67 20 6c 65 6e 67 74 | 68 20 24 63 63 5d 7d 20 |ng lengt|h $cc]} |
|00003f70| 7b 61 70 70 65 6e 64 20 | 74 65 78 74 20 22 24 63 |{append |text "$c|
|00003f80| 63 5c 72 22 7d 0d 09 69 | 66 20 7b 5b 73 74 72 69 |c\r"}..i|f {[stri|
|00003f90| 6e 67 20 6c 65 6e 67 74 | 68 20 24 73 65 6e 64 65 |ng lengt|h $sende|
|00003fa0| 72 5d 7d 20 7b 61 70 70 | 65 6e 64 20 74 65 78 74 |r]} {app|end text|
|00003fb0| 20 22 24 73 65 6e 64 65 | 72 5c 72 22 7d 0d 09 61 | "$sende|r\r"}..a|
|00003fc0| 70 70 65 6e 64 20 74 65 | 78 74 20 22 4d 73 67 20 |ppend te|xt "Msg |
|00003fd0| 5c 22 24 69 5c 22 20 28 | 24 6f 72 69 67 69 6e 61 |\"$i\" (|$origina|
|00003fe0| 6c 4e 75 6d 29 20 6f 66 | 20 6d 61 69 6c 62 6f 78 |lNum) of| mailbox|
|00003ff0| 20 5c 22 24 66 6f 6c 64 | 65 72 5c 22 20 20 20 20 | \"$fold|er\"    |
|00004000| 20 52 65 70 6c 79 20 20 | 20 20 20 54 72 61 73 68 | Reply  |   Trash|
|00004010| 5c 72 22 0d 09 69 6e 73 | 65 72 74 54 65 78 74 20 |\r"..ins|ertText |
|00004020| 22 24 7b 74 65 78 74 7d | 3e 3d 3d 3d 3d 3d 3d 3d |"${text}|>=======|
|00004030| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004040| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004050| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004060| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00004070| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 24 63 6f 6e 74 65 6e |========|.$conten|
|00004080| 74 73 0d 22 0d 09 67 6f | 74 6f 20 30 0d 09 67 6f |ts."..go|to 0..go|
|00004090| 74 6f 20 5b 6c 69 6e 64 | 65 78 20 5b 73 65 61 72 |to [lind|ex [sear|
|000040a0| 63 68 20 2d 66 20 31 20 | 2d 72 20 31 20 7b 5e 4d |ch -f 1 |-r 1 {^M|
|000040b0| 73 67 20 22 7d 20 30 5d | 20 30 5d 0d 09 73 65 74 |sg "} 0]| 0]..set|
|000040c0| 20 70 6f 73 20 5b 67 65 | 74 50 6f 73 5d 0d 09 72 | pos [ge|tPos]..r|
|000040d0| 65 67 65 78 70 20 2d 69 | 6e 64 69 63 65 73 20 7b |egexp -i|ndices {|
|000040e0| 28 5b 30 2d 39 5d 2b 29 | 2e 2a 6d 61 69 6c 62 6f |([0-9]+)|.*mailbo|
|000040f0| 78 20 22 28 2e 2b 29 22 | 2e 2a 28 52 65 70 6c 79 |x "(.+)"|.*(Reply|
|00004100| 29 2e 2a 28 54 72 61 73 | 68 29 7d 20 5b 67 65 74 |).*(Tras|h)} [get|
|00004110| 54 65 78 74 20 24 70 6f | 73 20 5b 6e 65 78 74 4c |Text $po|s [nextL|
|00004120| 69 6e 65 53 74 61 72 74 | 20 24 70 6f 73 5d 5d 20 |ineStart| $pos]] |
|00004130| 64 75 6d 6d 79 20 6e 75 | 6d 20 66 6f 6c 64 20 72 |dummy nu|m fold r|
|00004140| 65 70 20 74 72 61 0d 09 | 63 6f 6c 6f 72 53 65 6c |ep tra..|colorSel|
|00004150| 65 63 74 50 6f 73 20 5b | 65 78 70 72 20 24 70 6f |ectPos [|expr $po|
|00004160| 73 20 2b 20 5b 6c 69 6e | 64 65 78 20 24 6e 75 6d |s + [lin|dex $num|
|00004170| 20 30 5d 5d 20 5b 65 78 | 70 72 20 31 20 2b 20 24 | 0]] [ex|pr 1 + $|
|00004180| 70 6f 73 20 2b 20 5b 6c | 69 6e 64 65 78 20 24 6e |pos + [l|index $n|
|00004190| 75 6d 20 31 5d 5d 20 62 | 6f 6c 64 20 31 32 0d 09 |um 1]] b|old 12..|
|000041a0| 63 6f 6c 6f 72 53 65 6c | 65 63 74 50 6f 73 20 5b |colorSel|ectPos [|
|000041b0| 65 78 70 72 20 24 70 6f | 73 20 2b 20 5b 6c 69 6e |expr $po|s + [lin|
|000041c0| 64 65 78 20 24 66 6f 6c | 64 20 30 5d 5d 20 5b 65 |dex $fol|d 0]] [e|
|000041d0| 78 70 72 20 31 20 2b 24 | 70 6f 73 20 2b 20 5b 6c |xpr 1 +$|pos + [l|
|000041e0| 69 6e 64 65 78 20 24 66 | 6f 6c 64 20 31 5d 5d 20 |index $f|old 1]] |
|000041f0| 62 6f 6c 64 20 31 32 0d | 09 68 79 70 65 72 53 65 |bold 12.|.hyperSe|
|00004200| 6c 65 63 74 50 6f 73 20 | 5b 65 78 70 72 20 24 70 |lectPos |[expr $p|
|00004210| 6f 73 20 2b 20 5b 6c 69 | 6e 64 65 78 20 24 72 65 |os + [li|ndex $re|
|00004220| 70 20 30 5d 5d 20 5b 65 | 78 70 72 20 31 20 2b 24 |p 0]] [e|xpr 1 +$|
|00004230| 70 6f 73 20 2b 20 5b 6c | 69 6e 64 65 78 20 24 72 |pos + [l|index $r|
|00004240| 65 70 20 31 5d 5d 20 22 | 6d 61 69 6c 52 65 70 6c |ep 1]] "|mailRepl|
|00004250| 79 6d 73 67 22 0d 09 68 | 79 70 65 72 53 65 6c 65 |ymsg"..h|yperSele|
|00004260| 63 74 50 6f 73 20 5b 65 | 78 70 72 20 24 70 6f 73 |ctPos [e|xpr $pos|
|00004270| 20 2b 20 5b 6c 69 6e 64 | 65 78 20 24 74 72 61 20 | + [lind|ex $tra |
|00004280| 30 5d 5d 20 5b 65 78 70 | 72 20 31 20 2b 24 70 6f |0]] [exp|r 1 +$po|
|00004290| 73 20 2b 20 5b 6c 69 6e | 64 65 78 20 24 74 72 61 |s + [lin|dex $tra|
|000042a0| 20 31 5d 5d 20 22 6d 61 | 69 6c 54 72 61 73 68 6d | 1]] "ma|ilTrashm|
|000042b0| 73 67 22 0d 0d 09 67 6f | 74 6f 20 30 0d 09 73 65 |sg"...go|to 0..se|
|000042c0| 74 57 69 6e 49 6e 66 6f | 20 64 69 72 74 79 20 30 |tWinInfo| dirty 0|
|000042d0| 0d 09 73 65 74 57 69 6e | 49 6e 66 6f 20 72 65 61 |..setWin|Info rea|
|000042e0| 64 2d 6f 6e 6c 79 20 31 | 0d 09 63 65 6e 74 65 72 |d-only 1|..center|
|000042f0| 52 65 64 72 61 77 0d 7d | 0d 0d 70 72 6f 63 20 63 |Redraw.}|..proc c|
|00004300| 6f 6c 6f 72 53 65 6c 65 | 63 74 50 6f 73 20 7b 66 |olorSele|ctPos {f|
|00004310| 72 6f 6d 20 74 6f 20 69 | 6e 64 20 69 6e 64 32 7d |rom to i|nd ind2}|
|00004320| 20 7b 0d 09 69 6e 73 65 | 72 74 43 6f 6c 6f 72 45 | {..inse|rtColorE|
|00004330| 73 63 61 70 65 20 24 66 | 72 6f 6d 20 24 69 6e 64 |scape $f|rom $ind|
|00004340| 0d 09 69 6e 73 65 72 74 | 43 6f 6c 6f 72 45 73 63 |..insert|ColorEsc|
|00004350| 61 70 65 20 24 74 6f 20 | 24 69 6e 64 32 0d 7d 0d |ape $to |$ind2.}.|
|00004360| 0d 70 72 6f 63 20 68 79 | 70 65 72 53 65 6c 65 63 |.proc hy|perSelec|
|00004370| 74 50 6f 73 20 7b 66 72 | 6f 6d 20 74 6f 20 74 65 |tPos {fr|om to te|
|00004380| 78 74 7d 20 7b 0d 09 69 | 66 20 7b 24 66 72 6f 6d |xt} {..i|f {$from|
|00004390| 20 3d 3d 20 24 74 6f 7d | 20 7b 0d 09 09 62 65 65 | == $to}| {...bee|
|000043a0| 70 0d 09 09 72 65 74 75 | 72 6e 0d 09 7d 0d 09 69 |p...retu|rn..}..i|
|000043b0| 6e 73 65 72 74 43 6f 6c | 6f 72 45 73 63 61 70 65 |nsertCol|orEscape|
|000043c0| 20 24 66 72 6f 6d 20 33 | 0d 09 69 6e 73 65 72 74 | $from 3|..insert|
|000043d0| 43 6f 6c 6f 72 45 73 63 | 61 70 65 20 24 66 72 6f |ColorEsc|ape $fro|
|000043e0| 6d 20 31 35 20 24 74 65 | 78 74 0d 09 69 6e 73 65 |m 15 $te|xt..inse|
|000043f0| 72 74 43 6f 6c 6f 72 45 | 73 63 61 70 65 20 24 74 |rtColorE|scape $t|
|00004400| 6f 20 31 32 0d 09 69 6e | 73 65 72 74 43 6f 6c 6f |o 12..in|sertColo|
|00004410| 72 45 73 63 61 70 65 20 | 24 74 6f 20 30 0d 7d 0d |rEscape |$to 0.}.|
|00004420| 0d 70 72 6f 63 20 6d 61 | 69 6c 46 69 78 4d 65 6e |.proc ma|ilFixMen|
|00004430| 75 73 20 7b 7d 20 7b 0d | 09 67 6c 6f 62 61 6c 20 |us {} {.|.global |
|00004440| 6d 61 69 6c 4d 65 6e 75 | 0d 09 0d 09 73 65 74 20 |mailMenu|....set |
|00004450| 69 6e 73 20 7b 7d 0d 09 | 73 65 74 20 6f 75 74 73 |ins {}..|set outs|
|00004460| 20 7b 7d 0d 09 0d 09 73 | 65 74 20 63 6e 74 20 5b | {}....s|et cnt [|
|00004470| 6d 61 69 6c 43 6f 75 6e | 74 4d 73 67 73 20 69 6e |mailCoun|tMsgs in|
|00004480| 5d 0d 09 66 6f 72 20 7b | 73 65 74 20 69 20 31 7d |]..for {|set i 1}|
|00004490| 20 7b 24 69 20 3c 3d 20 | 24 63 6e 74 7d 20 7b 69 | {$i <= |$cnt} {i|
|000044a0| 6e 63 72 20 69 7d 20 7b | 0d 09 09 6c 61 70 70 65 |ncr i} {|...lappe|
|000044b0| 6e 64 20 69 6e 73 20 5b | 6d 61 69 6c 47 65 74 46 |nd ins [|mailGetF|
|000044c0| 69 65 6c 64 20 66 72 6f | 6d 20 69 6e 20 24 69 5d |ield fro|m in $i]|
|000044d0| 0d 09 7d 0d 09 6d 65 6e | 75 20 2d 6e 20 69 6e 20 |..}..men|u -n in |
|000044e0| 7b 7d 0d 09 66 6f 72 65 | 61 63 68 20 69 74 65 6d |{}..fore|ach item|
|000044f0| 20 24 69 6e 73 20 7b 0d | 09 09 61 64 64 4d 65 6e | $ins {.|..addMen|
|00004500| 75 49 74 65 6d 20 2d 6c | 20 22 22 20 69 6e 20 24 |uItem -l| "" in $|
|00004510| 69 74 65 6d 0d 09 7d 0d | 09 0d 09 73 65 74 20 63 |item..}.|...set c|
|00004520| 6e 74 20 5b 6d 61 69 6c | 43 6f 75 6e 74 4d 73 67 |nt [mail|CountMsg|
|00004530| 73 20 6f 75 74 5d 0d 09 | 66 6f 72 20 7b 73 65 74 |s out]..|for {set|
|00004540| 20 69 20 31 7d 20 7b 24 | 69 20 3c 3d 20 24 63 6e | i 1} {$|i <= $cn|
|00004550| 74 7d 20 7b 69 6e 63 72 | 20 69 7d 20 7b 0d 09 09 |t} {incr| i} {...|
|00004560| 6c 61 70 70 65 6e 64 20 | 6f 75 74 73 20 5b 6d 61 |lappend |outs [ma|
|00004570| 69 6c 47 65 74 46 69 65 | 6c 64 20 66 72 6f 6d 20 |ilGetFie|ld from |
|00004580| 6f 75 74 20 24 69 5d 0d | 09 7d 0d 09 6d 65 6e 75 |out $i].|.}..menu|
|00004590| 20 2d 6e 20 6f 75 74 20 | 7b 7d 0d 09 66 6f 72 65 | -n out |{}..fore|
|000045a0| 61 63 68 20 69 74 65 6d | 20 24 6f 75 74 73 20 7b |ach item| $outs {|
|000045b0| 0d 09 09 61 64 64 4d 65 | 6e 75 49 74 65 6d 20 2d |...addMe|nuItem -|
|000045c0| 6c 20 22 22 20 6f 75 74 | 20 24 69 74 65 6d 0d 09 |l "" out| $item..|
|000045d0| 7d 0d 7d 0d 0d 0d 23 20 | 6d 61 6b 65 20 6d 65 73 |}.}...# |make mes|
|000045e0| 73 61 67 65 20 61 74 20 | 65 6e 64 20 6f 66 20 6d |sage at |end of m|
|000045f0| 61 69 6c 62 6f 78 20 22 | 6f 75 74 22 20 6f 66 20 |ailbox "|out" of |
|00004600| 6d 61 69 6c 20 66 6f 6c | 64 65 72 20 22 22 0d 70 |mail fol|der "".p|
|00004610| 72 6f 63 20 6d 61 69 6c | 43 72 65 61 74 65 4d 73 |roc mail|CreateMs|
|00004620| 67 20 7b 7d 20 7b 0d 09 | 63 72 65 61 74 65 54 68 |g {} {..|createTh|
|00004630| 69 6e 67 41 74 45 6e 64 | 20 27 43 53 4f 6d 27 20 |ingAtEnd| 'CSOm' |
|00004640| 5b 6d 61 69 6c 62 6f 78 | 42 79 4e 61 6d 65 20 4f |[mailbox|ByName O|
|00004650| 75 74 5d 20 65 75 4d 53 | 0d 7d 0d 0d 0d 23 20 4d |ut] euMS|.}...# M|
|00004660| 6f 76 65 20 6d 73 67 20 | 77 2f 20 73 70 65 63 69 |ove msg |w/ speci|
|00004670| 66 69 65 64 20 69 6e 64 | 65 78 20 62 65 74 77 65 |fied ind|ex betwe|
|00004680| 65 6e 20 66 6f 6c 64 65 | 72 73 2c 20 69 6e 63 6c |en folde|rs, incl|
|00004690| 75 64 69 6e 67 20 74 6f | 20 54 72 61 73 68 2e 0d |uding to| Trash..|
|000046a0| 70 72 6f 63 20 6d 6f 76 | 65 4d 73 67 20 7b 6d 73 |proc mov|eMsg {ms|
|000046b0| 67 20 69 6e 66 6f 6c 64 | 65 72 20 6f 75 74 66 6f |g infold|er outfo|
|000046c0| 6c 64 65 72 7d 20 7b 0d | 09 41 45 42 75 69 6c 64 |lder} {.|.AEBuild|
|000046d0| 20 2d 72 20 27 43 53 4f | 6d 27 20 63 6f 72 65 20 | -r 'CSO|m' core |
|000046e0| 6d 6f 76 65 20 7b 2d 2d | 2d 2d 7d 20 22 6f 62 6a |move {--|--} "obj|
|000046f0| 20 5c 7b 66 6f 72 6d 3a | 69 6e 64 78 2c 20 77 61 | \{form:|indx, wa|
|00004700| 6e 74 3a 74 79 70 65 28 | 65 75 4d 53 29 2c 20 73 |nt:type(|euMS), s|
|00004710| 65 6c 64 3a 24 6d 73 67 | 2c 20 66 72 6f 6d 3a 6f |eld:$msg|, from:o|
|00004720| 62 6a 20 5c 7b 66 6f 72 | 6d 3a 6e 61 6d 65 2c 20 |bj \{for|m:name, |
|00004730| 77 61 6e 74 3a 74 79 70 | 65 28 65 75 4d 42 29 2c |want:typ|e(euMB),|
|00004740| 20 73 65 6c 64 3a d2 24 | 69 6e 66 6f 6c 64 65 72 | seld:.$|infolder|
|00004750| d3 2c 20 66 72 6f 6d 3a | 6f 62 6a 20 5c 7b 66 6f |., from:|obj \{fo|
|00004760| 72 6d 3a 6e 61 6d 65 2c | 20 77 61 6e 74 3a 74 79 |rm:name,| want:ty|
|00004770| 70 65 28 65 75 4d 46 29 | 2c 20 73 65 6c 64 3a 27 |pe(euMF)|, seld:'|
|00004780| 54 45 58 54 27 28 29 2c | 20 66 72 6f 6d 3a 27 6e |TEXT'(),| from:'n|
|00004790| 75 6c 6c 27 28 29 5c 7d | 5c 7d 5c 7d 22 20 7b 69 |ull'()\}|\}\}" {i|
|000047a0| 6e 73 68 7d 20 22 69 6e | 73 6c 5c 7b 6b 6f 62 6a |nsh} "in|sl\{kobj|
|000047b0| 3a 6f 62 6a 20 5c 7b 66 | 6f 72 6d 3a 6e 61 6d 65 |:obj \{f|orm:name|
|000047c0| 2c 20 77 61 6e 74 3a 74 | 79 70 65 28 65 75 4d 42 |, want:t|ype(euMB|
|000047d0| 29 2c 20 73 65 6c 64 3a | d2 24 6f 75 74 66 6f 6c |), seld:|.$outfol|
|000047e0| 64 65 72 d3 2c 20 66 72 | 6f 6d 3a 6f 62 6a 20 5c |der., fr|om:obj \|
|000047f0| 7b 66 6f 72 6d 3a 6e 61 | 6d 65 2c 20 77 61 6e 74 |{form:na|me, want|
|00004800| 3a 74 79 70 65 28 65 75 | 4d 46 29 2c 20 73 65 6c |:type(eu|MF), sel|
|00004810| 64 3a 27 54 45 58 54 27 | 28 29 2c 20 66 72 6f 6d |d:'TEXT'|(), from|
|00004820| 3a 27 6e 75 6c 6c 27 28 | 29 5c 7d 5c 7d 2c 20 6b |:'null'(|)\}\}, k|
|00004830| 70 6f 73 3a 65 6e 64 20 | 5c 7d 22 0d 7d 0d 0d 0d |pos:end |\}".}...|
|00004840| 23 20 73 65 74 20 66 69 | 65 6c 64 20 22 66 6c 64 |# set fi|eld "fld|
|00004850| 22 20 6f 66 20 6d 65 73 | 73 61 67 65 20 30 20 74 |" of mes|sage 0 t|
|00004860| 6f 20 22 74 6f 22 0d 70 | 72 6f 63 20 6d 61 69 6c |o "to".p|roc mail|
|00004870| 53 65 74 46 69 65 6c 64 | 20 7b 66 6c 64 20 74 6f |SetField| {fld to|
|00004880| 7d 20 7b 0d 09 41 45 42 | 75 69 6c 64 20 2d 72 20 |} {..AEB|uild -r |
|00004890| 27 43 53 4f 6d 27 20 63 | 6f 72 65 20 73 65 74 64 |'CSOm' c|ore setd|
|000048a0| 20 7b 2d 2d 2d 2d 7d 20 | 22 6f 62 6a 20 5c 7b 66 | {----} |"obj \{f|
|000048b0| 6f 72 6d 3a 6e 61 6d 65 | 2c 20 77 61 6e 74 3a 74 |orm:name|, want:t|
|000048c0| 79 70 65 28 65 75 46 64 | 29 2c 20 73 65 6c 64 3a |ype(euFd|), seld:|
|000048d0| d2 24 66 6c 64 d3 2c 20 | 66 72 6f 6d 3a 6f 62 6a |.$fld., |from:obj|
|000048e0| 20 5c 7b 66 6f 72 6d 3a | 69 6e 64 78 2c 20 77 61 | \{form:|indx, wa|
|000048f0| 6e 74 3a 74 79 70 65 28 | 65 75 4d 53 29 2c 20 73 |nt:type(|euMS), s|
|00004900| 65 6c 64 3a 31 2c 20 66 | 72 6f 6d 3a 27 6e 75 6c |eld:1, f|rom:'nul|
|00004910| 6c 27 28 29 5c 7d 5c 7d | 22 20 64 61 74 61 20 22 |l'()\}\}|" data "|
|00004920| d2 24 74 6f d3 22 0d 7d | 0d 0d 70 72 6f 63 20 6d |.$to.".}|..proc m|
|00004930| 61 69 6c 47 65 74 46 69 | 65 6c 64 20 7b 66 69 65 |ailGetFi|eld {fie|
|00004940| 6c 64 20 66 6f 6c 64 65 | 72 20 6d 73 67 7d 20 7b |ld folde|r msg} {|
|00004950| 0d 09 69 66 20 7b 5b 63 | 61 74 63 68 20 7b 67 65 |..if {[c|atch {ge|
|00004960| 74 4f 62 6a 65 63 74 44 | 61 74 61 20 27 43 53 4f |tObjectD|ata 'CSO|
|00004970| 6d 27 20 65 75 46 64 20 | 24 66 69 65 6c 64 20 5b |m' euFd |$field [|
|00004980| 65 75 64 6f 72 61 4d 65 | 73 73 61 67 65 20 24 6d |eudoraMe|ssage $m|
|00004990| 73 67 20 24 66 6f 6c 64 | 65 72 5d 7d 20 72 65 73 |sg $fold|er]} res|
|000049a0| 5d 7d 20 7b 0d 09 09 72 | 65 74 75 72 6e 20 22 22 |]} {...r|eturn ""|
|000049b0| 0d 09 7d 20 65 6c 73 65 | 20 7b 0d 09 09 72 65 74 |..} else| {...ret|
|000049c0| 75 72 6e 20 24 72 65 73 | 0d 09 7d 0d 7d 0d 0d 23 |urn $res|..}.}..#|
|000049d0| 20 6f 62 6a 20 7b 77 61 | 6e 74 3a 74 79 70 65 28 | obj {wa|nt:type(|
|000049e0| 27 70 72 6f 70 27 29 2c | 20 66 72 6f 6d 3a 6f 62 |'prop'),| from:ob|
|000049f0| 6a 20 7b 66 6f 72 6d 3a | 69 6e 64 78 2c 20 77 61 |j {form:|indx, wa|
|00004a00| 6e 74 3a 74 79 70 65 28 | 65 75 4d 53 29 2c 20 73 |nt:type(|euMS), s|
|00004a10| 65 6c 64 3a 24 6d 73 67 | 2c 20 66 72 6f 6d 3a 6f |eld:$msg|, from:o|
|00004a20| 62 6a 20 7b 66 6f 72 6d | 3a 6e 61 6d 65 2c 20 77 |bj {form|:name, w|
|00004a30| 61 6e 74 3a 74 79 70 65 | 28 65 75 4d 42 29 2c 20 |ant:type|(euMB), |
|00004a40| 73 65 6c 64 3a d2 24 66 | 6f 6c 64 65 72 d3 2c 20 |seld:.$f|older., |
|00004a50| 66 72 6f 6d 3a 6f 62 6a | 20 7b 66 6f 72 6d 3a 6e |from:obj| {form:n|
|00004a60| 61 6d 65 2c 20 77 61 6e | 74 3a 74 79 70 65 28 65 |ame, wan|t:type(e|
|00004a70| 75 4d 46 29 2c 20 73 65 | 6c 64 3a 27 54 45 58 54 |uMF), se|ld:'TEXT|
|00004a80| 27 28 29 2c 20 66 72 6f | 6d 3a 27 6e 75 6c 6c 27 |'(), fro|m:'null'|
|00004a90| 28 29 7d 7d 7d 2c 20 66 | 6f 72 6d 3a 27 70 72 6f |()}}}, f|orm:'pro|
|00004aa0| 70 27 2c 20 73 65 6c 64 | 3a 74 79 70 65 28 27 65 |p', seld|:type('e|
|00004ab0| 75 53 54 27 29 7d 0d 0d | 70 72 6f 63 20 6d 61 69 |uST')}..|proc mai|
|00004ac0| 6c 4d 73 67 53 74 61 74 | 75 73 20 7b 66 6f 6c 64 |lMsgStat|us {fold|
|00004ad0| 65 72 20 6d 73 67 7d 20 | 7b 0d 09 69 66 20 7b 5b |er msg} |{..if {[|
|00004ae0| 63 61 74 63 68 20 7b 41 | 45 42 75 69 6c 64 20 2d |catch {A|EBuild -|
|00004af0| 72 20 27 43 53 4f 6d 27 | 20 63 6f 72 65 20 67 65 |r 'CSOm'| core ge|
|00004b00| 74 64 20 7b 2d 2d 2d 2d | 7d 20 22 6f 62 6a 20 5c |td {----|} "obj \|
|00004b10| 7b 77 61 6e 74 3a 74 79 | 70 65 28 27 70 72 6f 70 |{want:ty|pe('prop|
|00004b20| 27 29 2c 20 66 72 6f 6d | 3a 6f 62 6a 20 5c 7b 66 |'), from|:obj \{f|
|00004b30| 6f 72 6d 3a 69 6e 64 78 | 2c 20 77 61 6e 74 3a 74 |orm:indx|, want:t|
|00004b40| 79 70 65 28 65 75 4d 53 | 29 2c 20 73 65 6c 64 3a |ype(euMS|), seld:|
|00004b50| 24 6d 73 67 2c 20 66 72 | 6f 6d 3a 6f 62 6a 20 5c |$msg, fr|om:obj \|
|00004b60| 7b 66 6f 72 6d 3a 6e 61 | 6d 65 2c 20 77 61 6e 74 |{form:na|me, want|
|00004b70| 3a 74 79 70 65 28 65 75 | 4d 42 29 2c 20 73 65 6c |:type(eu|MB), sel|
|00004b80| 64 3a d2 24 66 6f 6c 64 | 65 72 d3 2c 20 66 72 6f |d:.$fold|er., fro|
|00004b90| 6d 3a 6f 62 6a 20 5c 7b | 66 6f 72 6d 3a 6e 61 6d |m:obj \{|form:nam|
|00004ba0| 65 2c 20 77 61 6e 74 3a | 74 79 70 65 28 65 75 4d |e, want:|type(euM|
|00004bb0| 46 29 2c 20 73 65 6c 64 | 3a 27 54 45 58 54 27 28 |F), seld|:'TEXT'(|
|00004bc0| 29 2c 20 66 72 6f 6d 3a | 27 6e 75 6c 6c 27 28 29 |), from:|'null'()|
|00004bd0| 5c 7d 5c 7d 5c 7d 2c 20 | 66 6f 72 6d 3a 27 70 72 |\}\}\}, |form:'pr|
|00004be0| 6f 70 27 2c 20 73 65 6c | 64 3a 74 79 70 65 28 27 |op', sel|d:type('|
|00004bf0| 65 75 53 54 27 29 5c 7d | 22 7d 20 74 65 78 74 5d |euST')\}|"} text]|
|00004c00| 7d 20 7b 0d 09 09 72 65 | 74 75 72 6e 20 22 22 0d |} {...re|turn "".|
|00004c10| 09 7d 0d 09 73 65 74 20 | 66 72 6f 6d 20 5b 73 74 |.}..set |from [st|
|00004c20| 72 69 6e 67 20 66 69 72 | 73 74 20 22 d2 22 20 24 |ring fir|st "." $|
|00004c30| 74 65 78 74 5d 0d 09 73 | 65 74 20 74 6f 20 5b 73 |text]..s|et to [s|
|00004c40| 74 72 69 6e 67 20 66 69 | 72 73 74 20 22 d3 22 20 |tring fi|rst "." |
|00004c50| 24 74 65 78 74 5d 0d 09 | 72 65 74 75 72 6e 20 5b |$text]..|return [|
|00004c60| 73 74 72 69 6e 67 20 72 | 61 6e 67 65 20 24 74 65 |string r|ange $te|
|00004c70| 78 74 20 5b 65 78 70 72 | 20 24 66 72 6f 6d 20 2b |xt [expr| $from +|
|00004c80| 20 31 5d 20 5b 65 78 70 | 72 20 24 74 6f 20 2d 20 | 1] [exp|r $to - |
|00004c90| 31 5d 5d 0d 7d 0d 0d 70 | 72 6f 63 20 6d 61 69 6c |1]].}..p|roc mail|
|00004ca0| 51 75 65 75 65 4c 61 73 | 74 20 7b 7d 20 7b 0d 09 |QueueLas|t {} {..|
|00004cb0| 41 45 42 75 69 6c 64 20 | 2d 72 20 27 43 53 4f 6d |AEBuild |-r 'CSOm|
|00004cc0| 27 20 43 53 4f 6d 20 65 | 51 75 65 20 2d 2d 2d 2d |' CSOm e|Que ----|
|00004cd0| 20 7b 6f 62 6a 20 7b 66 | 6f 72 6d 3a 69 6e 64 78 | {obj {f|orm:indx|
|00004ce0| 2c 20 77 61 6e 74 3a 74 | 79 70 65 28 65 75 4d 53 |, want:t|ype(euMS|
|00004cf0| 29 2c 20 73 65 6c 64 3a | 31 2c 20 66 72 6f 6d 3a |), seld:|1, from:|
|00004d00| 27 6e 75 6c 6c 27 28 29 | 7d 7d 0d 7d 0d 0d 23 20 |'null'()|}}.}..# |
|00004d10| 43 53 4f 6d 5c 65 41 74 | 63 7b 27 2d 2d 2d 2d 27 |CSOm\eAt|c{'----'|
|00004d20| 3a 6f 62 6a 20 7b 66 6f | 72 6d 3a 69 6e 64 78 2c |:obj {fo|rm:indx,|
|00004d30| 20 77 61 6e 74 3a 74 79 | 70 65 28 65 75 4d 53 29 | want:ty|pe(euMS)|
|00004d40| 2c 20 73 65 6c 64 3a 31 | 2c 20 66 72 6f 6d 3a 27 |, seld:1|, from:'|
|00004d50| 6e 75 6c 6c 27 28 29 7d | 2c 20 65 44 63 6c 3a 5b |null'()}|, eDcl:[|
|00004d60| 66 73 73 20 28 c7 34 38 | 36 31 37 32 36 34 33 41 |fss (.48|6172643A|
|00004d70| 34 34 36 35 37 33 36 42 | 37 34 36 46 37 30 32 30 |4465736B|746F7020|
|00004d80| 34 36 36 46 36 43 36 34 | 36 35 37 32 33 41 36 32 |466F6C64|65723A62|
|00004d90| 37 35 36 37 37 33 c8 29 | 5d 7d 0d 70 72 6f 63 20 |756773.)|]}.proc |
|00004da0| 6d 61 69 6c 41 74 74 61 | 63 68 6d 65 6e 74 44 6f |mailAtta|chmentDo|
|00004db0| 65 73 6e 74 57 6f 72 6b | 20 7b 6e 61 6d 65 7d 20 |esntWork| {name} |
|00004dc0| 7b 0d 09 41 45 42 75 69 | 6c 64 20 2d 72 20 27 43 |{..AEBui|ld -r 'C|
|00004dd0| 53 4f 6d 27 20 43 53 4f | 6d 20 65 41 74 63 20 2d |SOm' CSO|m eAtc -|
|00004de0| 2d 2d 2d 20 7b 6f 62 6a | 20 7b 66 6f 72 6d 3a 69 |--- {obj| {form:i|
|00004df0| 6e 64 78 2c 20 77 61 6e | 74 3a 74 79 70 65 28 65 |ndx, wan|t:type(e|
|00004e00| 75 4d 53 29 2c 20 73 65 | 6c 64 3a 31 2c 20 66 72 |uMS), se|ld:1, fr|
|00004e10| 6f 6d 3a 27 6e 75 6c 6c | 27 28 29 7d 7d 20 65 44 |om:'null|'()}} eD|
|00004e20| 63 6c 20 5b 6d 61 6b 65 | 41 6c 69 73 20 24 6e 61 |cl [make|Alis $na|
|00004e30| 6d 65 5d 0d 7d 0d 0d 23 | 20 63 6f 72 65 5c 73 65 |me].}..#| core\se|
|00004e40| 74 64 7b 27 2d 2d 2d 2d | 27 3a 6f 62 6a 20 7b 66 |td{'----|':obj {f|
|00004e50| 6f 72 6d 3a 70 72 6f 70 | 2c 20 77 61 6e 74 3a 74 |orm:prop|, want:t|
|00004e60| 79 70 65 28 70 72 6f 70 | 29 2c 20 73 65 6c 64 3a |ype(prop|), seld:|
|00004e70| 74 79 70 65 28 65 75 50 | 59 29 2c 20 66 72 6f 6d |type(euP|Y), from|
|00004e80| 3a 6f 62 6a 20 7b 66 6f | 72 6d 3a 69 6e 64 78 2c |:obj {fo|rm:indx,|
|00004e90| 20 77 61 6e 74 3a 74 79 | 70 65 28 65 75 4d 53 29 | want:ty|pe(euMS)|
|00004ea0| 2c 20 73 65 6c 64 3a 31 | 2c 20 66 72 6f 6d 3a 27 |, seld:1|, from:'|
|00004eb0| 6e 75 6c 6c 27 28 29 7d | 7d 2c 20 64 61 74 61 3a |null'()}|}, data:|
|00004ec0| 31 7d 0d 70 72 6f 63 20 | 6d 61 69 6c 53 65 74 4e |1}.proc |mailSetN|
|00004ed0| 75 6d 62 65 72 50 72 6f | 70 65 72 74 79 20 7b 70 |umberPro|perty {p|
|00004ee0| 72 6f 70 20 74 6f 7d 20 | 7b 0d 09 41 45 42 75 69 |rop to} |{..AEBui|
|00004ef0| 6c 64 20 2d 72 20 27 43 | 53 4f 6d 27 20 63 6f 72 |ld -r 'C|SOm' cor|
|00004f00| 65 20 73 65 74 64 20 2d | 2d 2d 2d 20 22 6f 62 6a |e setd -|--- "obj|
|00004f10| 20 5c 7b 66 6f 72 6d 3a | 70 72 6f 70 2c 20 77 61 | \{form:|prop, wa|
|00004f20| 6e 74 3a 74 79 70 65 28 | 70 72 6f 70 29 2c 20 73 |nt:type(|prop), s|
|00004f30| 65 6c 64 3a 74 79 70 65 | 28 24 70 72 6f 70 29 2c |eld:type|($prop),|
|00004f40| 20 66 72 6f 6d 3a 6f 62 | 6a 20 5c 7b 66 6f 72 6d | from:ob|j \{form|
|00004f50| 3a 69 6e 64 78 2c 20 77 | 61 6e 74 3a 74 79 70 65 |:indx, w|ant:type|
|00004f60| 28 65 75 4d 53 29 2c 20 | 73 65 6c 64 3a 31 2c 20 |(euMS), |seld:1, |
|00004f70| 66 72 6f 6d 3a 27 6e 75 | 6c 6c 27 28 29 5c 7d 5c |from:'nu|ll'()\}\|
|00004f80| 7d 22 20 64 61 74 61 20 | 24 74 6f 0d 7d 09 0d 0d |}" data |$to.}...|
|00004f90| 0d 70 72 6f 63 20 6d 61 | 69 6c 43 6f 75 6e 74 4d |.proc ma|ilCountM|
|00004fa0| 73 67 73 20 7b 6d 62 6f | 78 7d 20 7b 0d 09 72 65 |sgs {mbo|x} {..re|
|00004fb0| 74 75 72 6e 20 5b 63 6f | 75 6e 74 4f 62 6a 65 63 |turn [co|untObjec|
|00004fc0| 74 73 20 27 43 53 4f 6d | 27 20 5b 6d 61 69 6c 62 |ts 'CSOm|' [mailb|
|00004fd0| 6f 78 42 79 4e 61 6d 65 | 20 22 24 6d 62 6f 78 22 |oxByName| "$mbox"|
|00004fe0| 5d 20 20 65 75 4d 53 5d | 0d 7d 0d 0d 70 72 6f 63 |]  euMS]|.}..proc|
|00004ff0| 20 6d 61 69 6c 43 6f 75 | 6e 74 4d 61 69 6c 62 6f | mailCou|ntMailbo|
|00005000| 78 65 73 20 7b 7d 20 7b | 0d 20 09 72 65 74 75 72 |xes {} {|. .retur|
|00005010| 6e 20 5b 63 6f 75 6e 74 | 4f 62 6a 65 63 74 73 20 |n [count|Objects |
|00005020| 27 43 53 4f 6d 27 20 5b | 65 75 64 6f 72 61 46 6f |'CSOm' [|eudoraFo|
|00005030| 6c 64 65 72 5d 20 65 75 | 4d 42 5d 0d 7d 0d 09 0d |lder] eu|MB].}...|
|00005040| 0d 70 72 6f 63 20 75 70 | 64 61 74 65 4d 61 69 6c |.proc up|dateMail|
|00005050| 62 6f 78 4c 69 73 74 73 | 20 7b 7d 20 7b 0d 09 73 |boxLists| {} {..s|
|00005060| 65 74 20 6e 75 6d 20 5b | 6d 61 69 6c 43 6f 75 6e |et num [|mailCoun|
|00005070| 74 4d 61 69 6c 62 6f 78 | 65 73 5d 0d 09 66 6f 72 |tMailbox|es]..for|
|00005080| 20 7b 73 65 74 20 69 20 | 31 7d 20 7b 24 69 20 3c | {set i |1} {$i <|
|00005090| 3d 20 24 6e 75 6d 7d 20 | 7b 69 6e 63 72 20 69 7d |= $num} |{incr i}|
|000050a0| 20 7b 0d 09 09 73 65 74 | 20 6e 61 6d 65 20 5b 66 | {...set| name [f|
|000050b0| 69 6c 65 20 74 61 69 6c | 20 5b 6d 61 69 6c 62 6f |ile tail| [mailbo|
|000050c0| 78 50 61 74 68 49 6e 64 | 65 78 20 24 69 5d 5d 0d |xPathInd|ex $i]].|
|000050d0| 09 09 6d 65 73 73 61 67 | 65 20 24 6e 61 6d 65 0d |..messag|e $name.|
|000050e0| 09 09 6c 61 70 70 65 6e | 64 20 62 6f 78 65 73 20 |..lappen|d boxes |
|000050f0| 24 6e 61 6d 65 0d 09 7d | 0d 09 0d 09 67 6c 6f 62 |$name..}|....glob|
|00005100| 61 6c 20 65 75 64 6f 72 | 61 42 6f 78 65 73 20 6d |al eudor|aBoxes m|
|00005110| 6f 64 69 66 69 65 64 56 | 61 72 73 0d 09 6c 61 70 |odifiedV|ars..lap|
|00005120| 70 65 6e 64 20 6d 6f 64 | 69 66 69 65 64 56 61 72 |pend mod|ifiedVar|
|00005130| 73 20 65 75 64 6f 72 61 | 42 6f 78 65 73 0d 09 73 |s eudora|Boxes..s|
|00005140| 65 74 20 65 75 64 6f 72 | 61 42 6f 78 65 73 20 24 |et eudor|aBoxes $|
|00005150| 62 6f 78 65 73 0d 09 6d | 65 6e 75 20 2d 6e 20 6f |boxes..m|enu -n o|
|00005160| 70 65 6e 20 2d 70 20 6d | 61 69 6c 42 6f 78 50 72 |pen -p m|ailBoxPr|
|00005170| 6f 63 20 2d 6d 20 24 65 | 75 64 6f 72 61 42 6f 78 |oc -m $e|udoraBox|
|00005180| 65 73 0d 09 6d 65 6e 75 | 20 2d 6e 20 6d 6f 76 65 |es..menu| -n move|
|00005190| 54 6f 20 2d 70 20 74 72 | 61 6e 73 66 65 72 50 72 |To -p tr|ansferPr|
|000051a0| 6f 63 20 2d 6d 20 24 65 | 75 64 6f 72 61 42 6f 78 |oc -m $e|udoraBox|
|000051b0| 65 73 0d 09 6d 65 73 73 | 61 67 65 20 22 64 6f 6e |es..mess|age "don|
|000051c0| 65 2e 22 0d 7d 0d 0d 0d | 23 3d 3d 3d 3d 3d 3d 3d |e.".}...|#=======|
|000051d0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000051e0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|000051f0| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005200| 3d 3d 3d 3d 3d 3d 3d 3d | 3d 3d 3d 3d 3d 3d 3d 3d |========|========|
|00005210| 3d 3d 3d 3d 3d 3d 3d 3d | 0d 0d 65 76 65 6e 74 48 |========|..eventH|
|00005220| 61 6e 64 6c 65 72 20 43 | 53 4f 6d 20 65 4e 6f 74 |andler C|SOm eNot|
|00005230| 20 22 65 75 64 6f 72 61 | 48 61 6e 64 6c 65 72 22 | "eudora|Handler"|
|00005240| 0d 20 0d 23 20 61 20 73 | 61 6d 70 6c 65 20 27 6d |. .# a s|ample 'm|
|00005250| 73 67 73 27 3a 20 6f 62 | 6a 20 7b 77 61 6e 74 3a |sgs': ob|j {want:|
|00005260| 74 79 70 65 28 65 75 4d | 53 29 2c 20 66 72 6f 6d |type(euM|S), from|
|00005270| 3a 6f 62 6a 20 7b 77 61 | 6e 74 3a 74 79 70 65 28 |:obj {wa|nt:type(|
|00005280| 65 75 4d 42 29 2c 20 66 | 72 6f 6d 3a 6f 62 6a 20 |euMB), f|rom:obj |
|00005290| 7b 77 61 6e 74 3a 74 79 | 70 65 28 65 75 4d 46 29 |{want:ty|pe(euMF)|
|000052a0| 2c 20 66 72 6f 6d 3a 27 | 6e 75 6c 6c 27 28 29 2c |, from:'|null'(),|
|000052b0| 20 66 6f 72 6d 3a 6e 61 | 6d 65 2c 20 73 65 6c 64 | form:na|me, seld|
|000052c0| 3a 27 54 45 58 54 27 28 | 29 7d 2c 20 66 6f 72 6d |:'TEXT'(|)}, form|
|000052d0| 3a 6e 61 6d 65 2c 20 73 | 65 6c 64 3a d2 49 6e d3 |:name, s|eld:.In.|
|000052e0| 7d 2c 20 66 6f 72 6d 3a | 69 6e 64 78 2c 20 73 65 |}, form:|indx, se|
|000052f0| 6c 64 3a 31 38 7d 2c 20 | 6f 62 6a 20 7b 77 61 6e |ld:18}, |obj {wan|
|00005300| 74 3a 74 79 70 65 28 65 | 75 4d 53 29 2c 20 66 72 |t:type(e|uMS), fr|
|00005310| 6f 6d 3a 6f 62 6a 20 7b | 77 61 6e 74 3a 74 79 70 |om:obj {|want:typ|
|00005320| 65 28 65 75 4d 42 29 2c | 20 66 72 6f 6d 3a 6f 62 |e(euMB),| from:ob|
|00005330| 6a 20 7b 77 61 6e 74 3a | 74 79 70 65 28 65 75 4d |j {want:|type(euM|
|00005340| 46 29 2c 20 66 72 6f 6d | 3a 27 6e 75 6c 6c 27 28 |F), from|:'null'(|
|00005350| 29 2c 20 66 6f 72 6d 3a | 6e 61 6d 65 2c 20 73 65 |), form:|name, se|
|00005360| 6c 64 3a 27 54 45 58 54 | 27 28 29 7d 2c 20 66 6f |ld:'TEXT|'()}, fo|
|00005370| 72 6d 3a 6e 61 6d 65 2c | 20 73 65 6c 64 3a d2 49 |rm:name,| seld:.I|
|00005380| 6e d3 7d 2c 20 66 6f 72 | 6d 3a 69 6e 64 78 2c 20 |n.}, for|m:indx, |
|00005390| 73 65 6c 64 3a 31 39 7d | 0d 70 72 6f 63 20 65 75 |seld:19}|.proc eu|
|000053a0| 64 6f 72 61 48 61 6e 64 | 6c 65 72 20 7b 69 74 7d |doraHand|ler {it}|
|000053b0| 20 7b 0d 09 67 6c 6f 62 | 61 6c 20 62 6c 61 68 20 | {..glob|al blah |
|000053c0| 6d 61 69 6c 61 6c 65 72 | 74 4f 6e 49 6e 63 6f 6d |mailaler|tOnIncom|
|000053d0| 69 6e 67 0d 09 6d 65 73 | 73 61 67 65 20 22 22 0d |ing..mes|sage "".|
|000053e0| 09 69 66 20 7b 5b 72 65 | 67 65 78 70 20 7b 65 57 |.if {[re|gexp {eW|
|000053f0| 48 70 3a 77 41 72 76 2e | 2a 5c 5b 28 6f 62 6a 2e |Hp:wArv.|*\[(obj.|
|00005400| 2a 29 5c 5d 2c 20 26 72 | 65 70 71 7d 20 24 69 74 |*)\], &r|epq} $it|
|00005410| 20 64 75 6d 31 20 6d 73 | 67 73 5d 7d 20 7b 0d 09 | dum1 ms|gs]} {..|
|00005420| 09 73 65 74 20 69 64 73 | 20 5b 67 65 74 4d 73 67 |.set ids| [getMsg|
|00005430| 49 44 73 20 24 6d 73 67 | 73 5d 0d 09 09 69 66 20 |IDs $msg|s]...if |
|00005440| 7b 24 6d 61 69 6c 61 6c | 65 72 74 4f 6e 49 6e 63 |{$mailal|ertOnInc|
|00005450| 6f 6d 69 6e 67 7d 20 7b | 0d 09 09 09 6d 61 69 6c |oming} {|....mail|
|00005460| 42 72 6f 77 73 65 72 20 | 49 6e 20 24 69 64 73 0d |Browser |In $ids.|
|00005470| 09 09 09 62 65 65 70 3b | 20 62 65 65 70 0d 09 09 |...beep;| beep...|
|00005480| 7d 0d 09 7d 0d 7d 0d 0d | 0d 70 72 6f 63 20 6d 61 |}..}.}..|.proc ma|
|00005490| 69 6c 42 72 6f 77 73 65 | 72 20 7b 66 6f 6c 64 65 |ilBrowse|r {folde|
|000054a0| 72 20 69 64 73 7d 20 7b | 0d 09 67 6c 6f 62 61 6c |r ids} {|..global|
|000054b0| 20 69 6e 62 6f 78 4d 65 | 6d 62 65 72 73 20 41 4c | inboxMe|mbers AL|
|000054c0| 50 48 41 0d 09 67 6c 6f | 62 61 6c 20 74 69 6c 65 |PHA..glo|bal tile|
|000054d0| 4c 65 66 74 20 74 69 6c | 65 54 6f 70 20 64 65 66 |Left til|eTop def|
|000054e0| 57 69 64 74 68 20 74 69 | 6c 65 48 65 69 67 68 74 |Width ti|leHeight|
|000054f0| 20 65 72 72 6f 72 48 65 | 69 67 68 74 0d 0d 09 63 | errorHe|ight...c|
|00005500| 68 65 63 6b 4d 61 69 6c | 50 61 74 68 0d 09 73 77 |heckMail|Path..sw|
|00005510| 69 74 63 68 54 6f 20 24 | 41 4c 50 48 41 0d 0d 09 |itchTo $|ALPHA...|
|00005520| 67 6c 6f 62 61 6c 20 74 | 72 61 73 68 65 64 4d 73 |global t|rashedMs|
|00005530| 67 73 24 66 6f 6c 64 65 | 72 0d 09 73 65 74 20 74 |gs$folde|r..set t|
|00005540| 72 61 73 68 65 64 4d 73 | 67 73 24 66 6f 6c 64 65 |rashedMs|gs$folde|
|00005550| 72 20 7b 7d 0d 09 0d 09 | 73 65 74 20 69 6e 62 6f |r {}....|set inbo|
|00005560| 78 4d 65 6d 62 65 72 73 | 20 7b 7d 0d 09 73 65 74 |xMembers| {}..set|
|00005570| 20 74 65 78 74 20 7b 7d | 0d 0d 09 66 6f 72 65 61 | text {}|...forea|
|00005580| 63 68 20 69 64 20 24 69 | 64 73 20 7b 0d 09 09 72 |ch id $i|ds {...r|
|00005590| 65 67 65 78 70 20 7b 46 | 72 6f 6d 3a 20 28 2e 2a |egexp {F|rom: (.*|
|000055a0| 29 7d 20 5b 6d 61 69 6c | 47 65 74 46 69 65 6c 64 |)} [mail|GetField|
|000055b0| 20 66 72 6f 6d 20 24 66 | 6f 6c 64 65 72 20 24 69 | from $f|older $i|
|000055c0| 64 5d 20 64 75 6d 6d 79 | 20 66 72 6f 6d 0d 09 09 |d] dummy| from...|
|000055d0| 73 65 74 20 66 72 6f 6d | 20 5b 6d 61 69 6c 41 64 |set from| [mailAd|
|000055e0| 64 72 20 24 66 72 6f 6d | 5d 0d 09 09 73 65 74 20 |dr $from|]...set |
|000055f0| 73 75 62 6a 65 63 74 20 | 7b 7d 0d 09 09 72 65 67 |subject |{}...reg|
|00005600| 65 78 70 20 7b 53 75 62 | 6a 65 63 74 3a 20 28 2e |exp {Sub|ject: (.|
|00005610| 2a 29 7d 20 5b 6d 61 69 | 6c 47 65 74 46 69 65 6c |*)} [mai|lGetFiel|
|00005620| 64 20 73 75 62 6a 65 63 | 74 20 24 66 6f 6c 64 65 |d subjec|t $folde|
|00005630| 72 20 24 69 64 5d 20 64 | 75 6d 6d 79 20 73 75 62 |r $id] d|ummy sub|
|00005640| 6a 65 63 74 0d 09 09 73 | 65 74 20 74 61 67 20 7b |ject...s|et tag {|
|00005650| 7d 0d 09 09 77 68 69 6c | 65 20 7b 5b 6c 73 65 61 |}...whil|e {[lsea|
|00005660| 72 63 68 20 24 69 6e 62 | 6f 78 4d 65 6d 62 65 72 |rch $inb|oxMember|
|00005670| 73 20 24 66 72 6f 6d 24 | 74 61 67 5d 20 3e 3d 20 |s $from$|tag] >= |
|00005680| 30 7d 20 7b 0d 09 09 09 | 69 66 20 7b 21 5b 73 74 |0} {....|if {![st|
|00005690| 72 69 6e 67 20 6c 65 6e | 67 74 68 20 24 74 61 67 |ring len|gth $tag|
|000056a0| 5d 7d 20 7b 0d 09 09 09 | 09 73 65 74 20 74 61 67 |]} {....|.set tag|
|000056b0| 20 7b 20 3c 32 3e 7d 0d | 09 09 09 7d 20 65 6c 73 | { <2>}.|...} els|
|000056c0| 65 20 7b 0d 09 09 09 09 | 72 65 67 65 78 70 20 7b |e {.....|regexp {|
|000056d0| 5b 30 2d 39 5d 2b 7d 20 | 24 74 61 67 20 74 61 67 |[0-9]+} |$tag tag|
|000056e0| 0d 09 09 09 09 73 65 74 | 20 74 61 67 20 22 20 3c |.....set| tag " <|
|000056f0| 5b 65 78 70 72 20 24 74 | 61 67 20 2b 20 31 5d 3e |[expr $t|ag + 1]>|
|00005700| 22 0d 09 09 09 7d 0d 09 | 09 7d 0d 09 09 61 70 70 |"....}..|.}...app|
|00005710| 65 6e 64 20 74 65 78 74 | 20 5b 66 6f 72 6d 61 74 |end text| [format|
|00005720| 20 22 25 2d 34 30 73 20 | 3a 20 25 73 5c 74 5c 74 | "%-40s |: %s\t\t|
|00005730| 5c 74 5c 74 5c 74 5c 74 | 5c 74 5c 74 5c 74 5c 74 |\t\t\t\t|\t\t\t\t|
|00005740| 5c 74 5c 74 5c 74 5c 74 | 5c 74 5c 74 5c 74 5c 74 |\t\t\t\t|\t\t\t\t|
|00005750| 5c 74 5c 74 5c 74 5c 74 | 5c 74 b0 49 6e b0 24 69 |\t\t\t\t|\t.In.$i|
|00005760| 64 5c 72 22 20 22 24 66 | 72 6f 6d 24 74 61 67 22 |d\r" "$f|rom$tag"|
|00005770| 20 24 73 75 62 6a 65 63 | 74 5d 0d 09 09 6c 61 70 | $subjec|t]...lap|
|00005780| 70 65 6e 64 20 69 6e 62 | 6f 78 4d 65 6d 62 65 72 |pend inb|oxMember|
|00005790| 73 20 24 66 72 6f 6d 24 | 74 61 67 0d 09 7d 0d 09 |s $from$|tag..}..|
|000057a0| 69 66 20 7b 21 5b 73 74 | 72 69 6e 67 20 6c 65 6e |if {![st|ring len|
|000057b0| 67 74 68 20 24 74 65 78 | 74 5d 7d 20 7b 0d 09 09 |gth $tex|t]} {...|
|000057c0| 61 6c 65 72 74 6e 6f 74 | 65 20 22 4e 6f 20 6d 65 |alertnot|e "No me|
|000057d0| 73 73 61 67 65 73 21 22 | 0d 09 09 72 65 74 75 72 |ssages!"|...retur|
|000057e0| 6e 0d 09 7d 0d 09 0d 09 | 69 66 20 7b 5b 73 65 74 |n..}....|if {[set|
|000057f0| 20 69 6e 64 20 5b 6c 73 | 65 61 72 63 68 20 5b 77 | ind [ls|earch [w|
|00005800| 69 6e 4e 61 6d 65 73 5d | 20 22 2a 49 6e 63 6f 6d |inNames]| "*Incom|
|00005810| 69 6e 67 20 4d 41 49 4c | 42 4f 58 2a 22 5d 5d 20 |ing MAIL|BOX*"]] |
|00005820| 3e 3d 20 30 7d 20 7b 0d | 09 09 62 72 69 6e 67 54 |>= 0} {.|..bringT|
|00005830| 6f 46 72 6f 6e 74 20 5b | 6c 69 6e 64 65 78 20 5b |oFront [|lindex [|
|00005840| 77 69 6e 4e 61 6d 65 73 | 5d 20 24 69 6e 64 5d 0d |winNames|] $ind].|
|00005850| 09 09 73 65 74 57 69 6e | 49 6e 66 6f 20 72 65 61 |..setWin|Info rea|
|00005860| 64 2d 6f 6e 6c 79 20 30 | 0d 09 09 65 6e 64 4f 66 |d-only 0|...endOf|
|00005870| 42 75 66 66 65 72 0d 09 | 09 69 6e 73 65 72 74 54 |Buffer..|.insertT|
|00005880| 65 78 74 20 24 74 65 78 | 74 0d 09 7d 20 65 6c 73 |ext $tex|t..} els|
|00005890| 65 20 7b 0d 09 09 6b 69 | 6c 6c 4d 61 69 6c 62 6f |e {...ki|llMailbo|
|000058a0| 78 57 69 6e 64 6f 77 0d | 09 09 6e 65 77 20 2d 6e |xWindow.|..new -n|
|000058b0| 20 22 2a 20 49 6e 63 6f | 6d 69 6e 67 20 4d 41 49 | "* Inco|ming MAI|
|000058c0| 4c 42 4f 58 20 2a 22 20 | 2d 67 20 24 74 69 6c 65 |LBOX *" |-g $tile|
|000058d0| 4c 65 66 74 20 24 74 69 | 6c 65 54 6f 70 20 24 64 |Left $ti|leTop $d|
|000058e0| 65 66 57 69 64 74 68 20 | 24 65 72 72 6f 72 48 65 |efWidth |$errorHe|
|000058f0| 69 67 68 74 0d 09 09 67 | 6c 6f 62 61 6c 20 77 69 |ight...g|lobal wi|
|00005900| 6e 4d 6f 64 65 73 0d 09 | 09 73 65 74 20 6e 61 6d |nModes..|.set nam|
|00005910| 65 20 5b 6c 69 6e 64 65 | 78 20 5b 77 69 6e 4e 61 |e [linde|x [winNa|
|00005920| 6d 65 73 5d 20 30 5d 0d | 09 09 63 68 61 6e 67 65 |mes] 0].|..change|
|00005930| 4d 6f 64 65 20 5b 73 65 | 74 20 77 69 6e 4d 6f 64 |Mode [se|t winMod|
|00005940| 65 73 28 24 6e 61 6d 65 | 29 20 42 72 77 73 5d 0d |es($name|) Brws].|
|00005950| 09 0d 09 09 69 6e 73 65 | 72 74 54 65 78 74 20 22 |....inse|rtText "|
|00005960| 28 3c 63 72 3e 20 74 6f | 20 67 6f 20 74 6f 20 6d |(<cr> to| go to m|
|00005970| 65 73 73 61 67 65 29 5c | 72 2d 2d 2d 2d 2d 5c 72 |essage)\|r-----\r|
|00005980| 24 74 65 78 74 22 0d 09 | 7d 0d 09 73 65 6c 65 63 |$text"..|}..selec|
|00005990| 74 20 5b 6e 65 78 74 4c | 69 6e 65 53 74 61 72 74 |t [nextL|ineStart|
|000059a0| 20 5b 6e 65 78 74 4c 69 | 6e 65 53 74 61 72 74 20 | [nextLi|neStart |
|000059b0| 30 5d 5d 20 5b 6e 65 78 | 74 4c 69 6e 65 53 74 61 |0]] [nex|tLineSta|
|000059c0| 72 74 20 5b 6e 65 78 74 | 4c 69 6e 65 53 74 61 72 |rt [next|LineStar|
|000059d0| 74 20 5b 6e 65 78 74 4c | 69 6e 65 53 74 61 72 74 |t [nextL|ineStart|
|000059e0| 20 30 5d 5d 5d 0d 09 73 | 65 74 57 69 6e 49 6e 66 | 0]]]..s|etWinInf|
|000059f0| 6f 20 64 69 72 74 79 20 | 30 0d 09 73 65 74 57 69 |o dirty |0..setWi|
|00005a00| 6e 49 6e 66 6f 20 72 65 | 61 64 2d 6f 6e 6c 79 20 |nInfo re|ad-only |
|00005a10| 31 0d 09 6d 65 73 73 61 | 67 65 20 22 22 0d 7d 0d |1..messa|ge "".}.|
|00005a20| 0d 0d 70 72 6f 63 20 67 | 65 74 4d 73 67 49 44 73 |..proc g|etMsgIDs|
|00005a30| 20 7b 74 65 78 74 7d 20 | 7b 0d 09 69 66 20 7b 5b | {text} |{..if {[|
|00005a40| 72 65 67 65 78 70 20 2d | 69 6e 64 69 63 65 73 20 |regexp -|indices |
|00005a50| 7b 73 65 6c 64 3a 28 5b | 30 2d 39 5d 2b 29 7d 20 |{seld:([|0-9]+)} |
|00005a60| 24 74 65 78 74 20 64 75 | 6d 6d 79 20 69 6e 64 5d |$text du|mmy ind]|
|00005a70| 7d 20 7b 0d 09 09 72 65 | 74 75 72 6e 20 5b 63 6f |} {...re|turn [co|
|00005a80| 6e 63 61 74 20 5b 73 74 | 72 69 6e 67 20 72 61 6e |ncat [st|ring ran|
|00005a90| 67 65 20 24 74 65 78 74 | 20 5b 6c 69 6e 64 65 78 |ge $text| [lindex|
|00005aa0| 20 24 69 6e 64 20 30 5d | 20 5b 6c 69 6e 64 65 78 | $ind 0]| [lindex|
|00005ab0| 20 24 69 6e 64 20 31 5d | 5d 20 5b 67 65 74 4d 73 | $ind 1]|] [getMs|
|00005ac0| 67 49 44 73 20 5b 73 74 | 72 69 6e 67 20 72 61 6e |gIDs [st|ring ran|
|00005ad0| 67 65 20 24 74 65 78 74 | 20 5b 6c 69 6e 64 65 78 |ge $text| [lindex|
|00005ae0| 20 24 69 6e 64 20 31 5d | 20 65 6e 64 5d 5d 5d 0d | $ind 1]| end]]].|
|00005af0| 09 7d 0d 7d 0d 0d 70 72 | 6f 63 20 73 74 61 72 74 |.}.}..pr|oc start|
|00005b00| 4e 6f 74 69 66 79 69 6e | 67 20 7b 7d 20 7b 0d 09 |Notifyin|g {} {..|
|00005b10| 67 6c 6f 62 61 6c 20 48 | 4f 4d 45 20 41 4c 50 48 |global H|OME ALPH|
|00005b20| 41 20 71 75 69 74 48 6f | 6f 6b 73 0d 09 0d 09 41 |A quitHo|oks....A|
|00005b30| 45 42 75 69 6c 64 20 27 | 43 53 4f 6d 27 20 43 53 |EBuild '|CSOm' CS|
|00005b40| 4f 6d 20 6e 49 6e 73 20 | 2d 2d 2d 2d 20 5b 6d 61 |Om nIns |---- [ma|
|00005b50| 6b 65 41 6c 69 73 20 22 | 24 48 4f 4d 45 3a 24 41 |keAlis "|$HOME:$A|
|00005b60| 4c 50 48 41 22 5d 0d 23 | 20 09 6c 61 70 70 65 6e |LPHA"].#| .lappen|
|00005b70| 64 20 71 75 69 74 48 6f | 6f 6b 73 20 73 74 6f 70 |d quitHo|oks stop|
|00005b80| 4e 6f 74 69 66 79 69 6e | 67 0d 7d 0d 0d 70 72 6f |Notifyin|g.}..pro|
|00005b90| 63 20 73 74 6f 70 4e 6f | 74 69 66 79 69 6e 67 20 |c stopNo|tifying |
|00005ba0| 7b 7d 20 7b 0d 09 67 6c | 6f 62 61 6c 20 48 4f 4d |{} {..gl|obal HOM|
|00005bb0| 45 20 41 4c 50 48 41 0d | 09 0d 09 41 45 42 75 69 |E ALPHA.|...AEBui|
|00005bc0| 6c 64 20 27 43 53 4f 6d | 27 20 43 53 4f 6d 20 6e |ld 'CSOm|' CSOm n|
|00005bd0| 52 65 6d 20 2d 2d 2d 2d | 20 5b 6d 61 6b 65 41 6c |Rem ----| [makeAl|
|00005be0| 69 73 20 22 24 48 4f 4d | 45 3a 24 41 4c 50 48 41 |is "$HOM|E:$ALPHA|
|00005bf0| 22 5d 0d 7d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |"].}....|........|
|00005c00| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00005c10| 30 30 00 0b 09 00 c0 06 | 04 0c 06 04 30 30 00 0b |00......|....00..|
|00005c20| 09 00 c0 07 0c 0c 47 0c | 30 30 00 0b 09 00 c0 03 |......G.|00......|
|00005c30| 0e 65 75 64 6f 72 61 4d | 65 6e 75 2e 74 63 6c 6e |.eudoraM|enu.tcln|
|00005c40| 02 00 00 00 54 45 58 54 | 41 4c 46 41 00 00 64 21 |....TEXT|ALFA..d!|
|00005c50| 00 00 54 45 58 54 41 4c | 46 41 00 00 64 21 64 8e |..TEXTAL|FA..d!d.|
|00005c60| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00005c70| 00 00 ac 31 ef 9a 00 00 | 5b 75 00 00 01 7e 00 3f |...1....|[u...~.?|
|00005c80| ff f8 00 20 00 08 00 20 | 00 0c 00 20 00 0c 00 20 |... ... |... ... |
|00005c90| 00 0c 00 20 00 0c 00 23 | ff 8c 00 21 ff 0c 00 20 |... ...#|...!... |
|00005ca0| fe 0c 00 20 7c 0c 00 20 | 38 0c 00 20 10 0c 00 20 |... |.. |8.. ... |
|00005cb0| 00 0c 00 20 00 0c 00 20 | 00 0c 00 20 00 0c 00 3f |... ... |... ...?|
|00005cc0| ff fc 00 0f ff fc 00 a0 | 00 83 ff 00 00 00 37 00 |........|......7.|
|00005cd0| 37 01 09 01 8b 01 0a 01 | 8c 11 01 01 00 0a 01 09 |7.......|........|
|00005ce0| 01 8b 01 0a 01 8c 90 00 | 02 01 09 01 8b 01 0a 01 |........|........|
|00005cf0| 8c 01 09 01 8b 01 0a 01 | 8c 01 09 01 8b 01 0a 01 |........|........|
|00005d00| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 b4 e5 e0 |...H..Mo|naco....|
|00005d10| 00 00 00 00 01 ae 73 94 | 01 d5 7a b0 24 00 04 22 |......s.|..z.$.."|
|00005d20| 02 0f eb c0 00 01 00 04 | 00 04 00 28 00 02 02 5b |........|...(...[|
|00005d30| 02 00 00 28 00 02 02 5b | 02 00 ae 3c c0 98 00 00 |...(...[|...<....|
|00005d40| 09 87 00 00 09 87 00 00 | 07 a5 01 00 00 00 01 00 |........|........|
|00005d50| 00 00 01 4c 00 00 00 4c | 00 00 00 32 01 ac da c8 |...L...L|...2....|
|00005d60| 1e 1e 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|00005d70| 00 0a 03 ed ff ff 00 00 | 00 00 01 b4 e7 68 00 00 |........|.....h..|
+--------+-------------------------+-------------------------+--------+--------+